home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / mapl0831.zip / MBS50831.MRG < prev    next >
Text File  |  1992-08-31  |  71KB  |  1,921 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\STOCK\RBBSSUB5.BAS to produce E:\RBBS\CHAT\RBBSSUB5.BAS
  3. * E:\RBBS\STOCK\RBBSSUB5.BAS:  Date 6-20-1992  Size 116575 bytes
  4. * ------------[ Created 08-31-1992 21:16:23 ]------------
  5. * REPLACING old line(s) by new
  6. ' $linesize:132
  7. ' $title: 'RBBSSUB5.BAS 17.4, Copyright 1986 - 92 by D. Thomas Mack'
  8. '  Copyright 1991 by D. Thomas Mack, all rights reserved.
  9. '  Name ...............: RBBSSUB5.BAS
  10. '  First Released .....: June 21, 1992
  11. '  Subsequent Releases.: 
  12. '  Copyright ..........: 1986 - 1992
  13. '  Purpose.............: The Remote Bulletin Board System for the IBM PC,
  14. '     RBBS-PC.BAS utilizes a lot of common subroutines.  Those that do not
  15. '     require error trapping are incorporated within RBBSSUB 2-5 as
  16. '     separately callable subroutines in order to free up as much
  17. '     code as possible within the 64K code segment used by RBBS-PC.BAS.
  18. '  Parameters..........: Most parameters are passed via a COMMON statement.
  19. '
  20. ' Subroutine  Line               Function of Subroutine
  21. '   Name     Number
  22. '  AddLink        63620  Adds a conference link
  23. * ------[ first line different ]------
  24. '  AskItems       63610  Get an list of items
  25. '  BinSearch      63520  Binary searches sorted file for a key value
  26. '  BreakFileName  63300  Break file name into component parts
  27. '  BufAsUnit      63500  Buffer out a string with CR's
  28. '  ChangeInit     63590  Get an integer value
  29. '  ChkAddedTime   63056  Check whether ok to extend time remaining
  30. '  ChkIfMsgHeader 63550  Checks whether record is a msg header
  31. '  DeLink         63620  Removes conference from linked ones
  32. '  DoorReturn     63100  Process door requests
  33. '  FdMacExe       63462  Executes a found macro
  34. '  FileSystem     20117  File System for RBBS-PC
  35. '  FindIt         63490  Check whether file exists and if so open as #2
  36. '  FormRead       63420  Read from file into a form
  37. '  LockAppend     63400  Prepare for a file append
  38. '  MacroExe       63460  Execute internal macro rather than user
  39. '  MarkItems      63600  Convert list of items into a "mark"
  40. '  MsgNameMatch   63540  Match name to one in msg header
  41. '  NextConf       63615  Sets up join to next conference link
  42. '  NoPath         63480  Detects whether string has a path in it
  43. '  RestoreCom     63310  Restore comm port after external program
  44. '  ReadMacro      63330  Read and process macro
  45. '  ReadParms      63490  Read certain number of parameters from file 2
  46. '  ReportEcho     63635  Reports echo preference of caller
  47. '  SayWelcome     63640  Welcomes callers on logon
  48. '  SetPrivileges  63650  Sets user privileges based on PASSWRDS
  49. '  SetPrompt      63470  Set prompts based on the user's security
  50. '  SetSessionTime 63645  Sets the session time
  51. '  SetSysOp       63625  Determines whether remote or global SysOp
  52. '  SetUserFlag    63560  Sets specified user flag
  53. '  SetUserPref    63630  Sets user preferences based on user record
  54. '  ShellExit      63320  Exit RBBS via shell
  55. '  SrchPasswrds   63652  Searches the PASSWRDS file
  56. '  TakeOffHook    63530  Take modem off hook
  57. '  TStats         69600  Display transfer stats from XFER-? file     ' MplXfer
  58. '  UnLockAppend   63410  Clean up after file append
  59. '  UnMarkItems    63610  Convert marked items into an input list
  60. '  VerifyAns      63510  Verify that string passes edits
  61. '  WildCard       63200  Match string to a pattern
  62. '
  63. '  $INCLUDE: 'RBBS-VAR.BAS'
  64. '
  65. * REPLACING old line(s) by new
  66. 20117 ' $SUBTITLE: 'FileSystem -- subroutine for RBBS-PC's file system'
  67. ' $PAGE
  68. '
  69. ' NAME    -- FileSystem
  70. '
  71. ' INPUTS  --       PARAMETER                 MEANING
  72. '             ZFileSysParm = 1  LIST THE SYSOP'S COMMENTS FILE
  73. '                                 2  L)IST DIRECTORY COMMAND
  74. '                                 3  D)OWNLOAD COMMAND
  75. '                                 4  RETURN FROM EXTERNAL PROTOCOLS
  76. '                                 5  U)PLOAD COMMAND
  77. '                                 6  S)CAN DIRECTORY COMMAND
  78. '                                 7  P)ERSONAL FILES COMMAND
  79. '                                 8  N)EW FILES COMMAND
  80. '                                 9  RETURN FROM EXTENDED DESCRIPTION
  81. * ------[ first line different ]------
  82. '                                 10  Batch Upload files
  83. '
  84. ' OUTPUTS -- ZFileSysParm = 1  COMMAND PROCESSED SUCCESSFULLY
  85. '                                2  RECYCLE TO TOP OF RBBS-PC (202)
  86. '                                3  PROCESS NEXT COMMAND (1200)
  87. '                                4  DENY USER ACCESS (1380)
  88. '                                5  HANDLE EXTENDED DESCRIP. (2008)
  89. '                                6  USER'S TIME EXCEEDED (10553)
  90. '                                7  Carrier DROPPED (10595)
  91. '
  92. ' PURPOSE -- To handle the RBBS-PC file system commands
  93. '
  94.       SUB FileSystem STATIC
  95.       ZFF = ZFileSysParm
  96.       ZFileSysParm = 1
  97.       ZActiveFMSDir$ = ""
  98.       CALL SaveUserActivity("F", ZNodeRecIndex, ZFalse)              ' CHAT0813
  99.       ON ZFF GOSUB 20119, _  ' HANDLER TO LIST COMMENTS TO SYSOP
  100.                   20150, _  ' L)IST DIRECTORY COMMAND HANDLER
  101.                   20180, _  ' D)OWNLOAD COMMAND HANDLER
  102.                   20263, _  ' RETURN FROM EXTERNAL Protocol'S
  103.                   20400, _  ' U)PLOAD COMMAND HANDLER
  104.                   21800, _  ' S)CAN DIRECTORY COMMAND HANDLER
  105.                   21850, _  ' P)ERSONAL FILES COMMAND HANDLER
  106.                   21860, _  ' N)EW FILES COMMAND HANDLER
  107.                   20705, _  ' RETURN FROM EXTENDED DESCRIPTIONS
  108.                   20410     ' 4)Batch Upload files
  109.       GOTO 21920
  110. * REPLACING old line(s) by new
  111. 20150 ZListDir = ZTrue
  112.       ListNew = ZFalse
  113.       SearchDate$ = ""
  114.       SearchString$ = ""
  115.       WasRS$ = ""
  116.       ShowDirOfDir = (ZLastIndex <= ZAnsIndex) AND NOT ZExpertUser
  117.       WasCK = 0
  118.       ZSearchingAll = ZFalse
  119. * ------[ first line different ]------
  120.       ZExtendedOff = Zfalse 'ZTrue   'Pe 10/27/91
  121. * REPLACING old line(s) by new
  122. * ------[ first line different ]------
  123. 20155 IF ZDnldCompleted AND ZAutoEnd = 1 THEN _   'Pe 02/05/90
  124.         ZFileSysParm = 7: _
  125.         RETURN
  126.  IF ListNew OR ZAnsIndex > 255 THEN _   'Pe 12/12/91
  127.          RETURN                         'Pe 12/12/91
  128.       CALL GetDirs (ZFalse)    'Pe 02/04/90
  129.       IF ZWasQ = 0 THEN _
  130.          RETURN
  131.       ShowDirOfDir = ZFalse
  132.       CALL ConvertDir (ZAnsIndex)
  133.       WasQX = ZLastIndex
  134. * REPLACING old line(s) by new
  135. 20159 IF ZAnsIndex < ZLastIndex THEN _
  136.          GOTO 20155
  137.       ZSearchingAll = ZFalse
  138.       CALL CmdStackPushPop (1)
  139.       ZLastIndex = 0
  140.       IF ZNo OR InFMS OR (ZFileNameHold$ = ZDirPrefix$) THEN _
  141.          GOTO 20155
  142.       GOSUB 20178
  143.       CALL QuickTPut (ZEmphasizeOff$,0)
  144.       ZTurboKey = - ZTurboKeyUser
  145. * ------[ first line different ]------
  146. ZOutTxt$ = "End list.  L)ist, T)ype, V)iew, M)ark, D)nld, [Q]uit"     'Pe 05/30/91
  147.       GOSUB 21667
  148.       CALL AraAllCaps (ZUserIn$(),1)
  149. '******************************* Pe 02/15/90 **********************
  150.      IF ZUserIn$(1) = "T"  AND _
  151.          ZUserSecLevel >= ZOptSec(19 - 20 * (ZMenuIndex = 6)) THEN _
  152.          ZAnsIndex = 1 : _   
  153.         CALL TypeFile : _
  154.        RETURN
  155.      IF ZUserIn$(1) = "V"  AND _
  156.          ZUserSecLevel >= ZOptSec(19 - 20 * (ZMenuIndex = 6)) THEN _
  157.          ZAnsIndex = 1 : _   
  158.         CALL GetArc : _
  159.        RETURN
  160. '******************************************************************
  161.       IF ZUserIn$(1) = "L" THEN _
  162.          ZUserIn$(ZAnsIndex) = WasA1$ : _
  163.         GOTO 20161
  164.       Temp$ = ZUserIn$(1)
  165.       Temp = (ZUserIn$(1) = "D")
  166.       CALL AskItems ("MD",Temp$,ZTrue,"file",ZMarkedFiles$)
  167.       IF ZWasQ = 0 OR ZUserSecLevel < ZOptSec(19 - 20 * (ZMenuIndex = 6)) THEN _
  168.          GOTO 20160
  169.       IF Temp THEN _
  170.          GOSUB 20202 _
  171.       ELSE IF LEN(ZUserIn$(1)) > 1 THEN _
  172.          ZAnsIndex = 1 : _
  173.          GOSUB 20202
  174. * REPLACING old line(s) by new
  175. 20162 CALL CmdStackPushPop (1)         ' save dir list list processing
  176.       CALL FMS (ZWasZ$,SearchString$,SearchDate$,InFMS, _
  177.                 ZCategoryName$(),ZCategoryCode$(),ZCategoryDesc$(),_
  178.                 DnldFlag,CatFound,ZAnsIndex)
  179.       WHILE DnldFlag > 0 AND ZSubParm > -1
  180.          GOSUB 20202
  181.          IF ZFileSysParm > 1 THEN _
  182.             RETURN
  183. * ------[ first line different ]------
  184.         IF ZDnldCompleted and ZAutoEnd = 1 THEN _  'Pe 02/05/90
  185.            RETURN       ' AUTOLOGOFF MOD
  186.          WasX$ = ZCategoryCode$(CatFound)
  187.          CALL DispUpDir (WasX$,SearchString$,SearchDate$,DnldFlag,ZAnsIndex)
  188.          CALL CheckTimeRemain (MinsRemaining)
  189.          IF ZSubParm = -1 THEN _
  190.             ZFileSysParm = 6 : _
  191.             RETURN
  192.          CALL Carrier
  193.       WEND
  194.       IF ZSubParm = -1 THEN _
  195.          ZFileSysParm = 7 : _
  196.          RETURN
  197.       IF ZAnsIndex > 255 OR ZRet THEN _
  198.          ZLastIndex = 0 : _
  199.          RETURN
  200.       CALL CmdStackPushPop (2)        ' restore dir list list processing
  201.       ZActiveFMSDir$ = ""
  202.       IF InFMS THEN _
  203.          GOTO 20159
  204.       IF ZUserSecLevel < ZMinSecToView THEN _
  205.          IF ZFileNameHold$ = ZUpldDirCheck$ THEN _
  206.         ZOutTxt$ = "Listing of Upload Directory Available to SYSOP Only" : _ 'DGS-TXT
  207.         GOSUB 21640 : _                                           'DGS-TXT
  208.         ZNo = ZTrue : _                                           'DGS-TXT
  209.         GOTO 20155                                                'DGS-TXT
  210.       ZFileNameHold$ = ZUserIn$(ZAnsIndex)
  211.       IF ZLimitSearchToFMS THEN _
  212.          GOTO 20166
  213.       IF NOT ZSearchingAll THEN _
  214.          IF ZFileNameHold$ = "ALL" OR ZFileNameHold$ = "A" THEN _
  215.             ZSearchingAll = ZTrue : _
  216.             GOSUB 21890 : _
  217.             GOTO 20157
  218.       CALL BadFile (ZFileNameHold$,BadFileNameIndex)
  219.       ON BadFileNameIndex GOTO 20163,20172,20176
  220. * REPLACING old line(s) by new
  221. 20166 ZFileName$ = ZCurDirPath$ + _
  222.                    ZFileNameHold$ + ".MNU"
  223. * ------[ first line different ]------
  224.       CALL FindIt (ZFileName$)
  225.       IF ZOK THEN _
  226.          CALL BufFile (ZFileName$,ZAnsIndex) : _
  227.          GOTO 20155
  228.       IF ZAltdirExtension$ = "" THEN _
  229.          GOTO 20172
  230.       ZFileName$ = ZCurDirPath$ + _
  231.                    ZFileNameHold$ + _
  232.                    "." + _
  233.                    ZAltdirExtension$
  234.       CALL Graphic (ZFileName$)
  235.       IF NOT ZOK THEN _
  236.          GOTO 20172
  237. * REPLACING old line(s) by new
  238. 20202 IF (ZTimeLock AND 2) AND (NOT TimeLockExempt) AND NOT ZHasPrivDoor THEN _
  239.          CALL TimeLock : _
  240.          IF NOT ZOK THEN _
  241.             RETURN
  242.       LastDnld = ZLastIndex
  243.       FirstDnld = ZAnsIndex
  244.       ZCmdTransfer$ = ""
  245. * ------[ first line different ]------
  246.       ZAnsIndex = ZLastIndex
  247.       GOSUB 20470
  248.       LastDnld = LastDnld + (WasX > 0)
  249.       BatchBytes# = 0
  250.       BatchBlocks# = 0
  251.       ZDownFiles = 0
  252.       CALL KillWork (ZNodeWorkFile$)
  253.       ZErrCode = 0
  254.       ZAnsIndex = FirstDnld
  255. * REPLACING old line(s) by new
  256. 20205 MarkingTime = (ZAnsIndex = FirstDnld OR NOT ZConcatFIles)
  257.       ZFileName$ = ZUserIn$(ZAnsIndex)
  258. * ------[ first line different ]------
  259.       CALL AllCaps(ZFileName$)              'ANSIEd
  260.       CALL Remove (ZFileName$,", ")
  261.       ZViolation$ = "Download "
  262.       IF ZListOnly THEN _
  263.          CALL BreakFileName (ZFileName$,DR$,ZWasY$,WasX$,ZTrue) : _
  264.          ZFileNameHold$ = ZWasY$ + _
  265.                            WasX$ : _
  266.          GOTO 20235
  267.       ZFileNameHold$ = ZFileName$
  268.       TmpFileNameHold$ = ZFileNameHold$                            'Pe 04/25/92
  269.       CALL BadFile (ZFileName$,BadFileNameIndex)
  270.       ON BadFileNameIndex GOTO 20220,20231,20233
  271. * INSERTING new line(s)
  272. 20210 CALL RotorsDir (ZFileName$,ZSubDir$(),ZSubDirCount + _      'Pe 06/01/92
  273.                       ((ZUserSecLevel < ZMinSecToView) OR _       'Pe 06/01/92
  274.                        NOT ZCanDnldFromUp),MarkingTime,"D")       'Pe 06/01/92
  275.        RETURN                                                     'Pe 06/01/92 
  276. * REPLACING old line(s) by new
  277. * ------[ first line different ]------
  278. 20220 IF INSTR(ZFileName$,ZDefaultExtension$)= 0 Then             'Pe 06/04/92
  279.       GOSUB 20210                                                 'Pe 06/02/92
  280.       IF ZOK THEN _                                               'Pe 06/02/92
  281.         GOTO 20235                                                'Pe 06/02/92
  282.       IF ZDotFlag THEN _                                          'Pe 06/02/92
  283.          RETURN                                                   'Pe 06/02/92
  284.      End if                                                       'Pe 06/04/92
  285.          WasI = 1                                                 'Pe 06/01/92
  286. * DELETING old line(s)
  287. 20222
  288. * REPLACING old line(s) by new
  289. * ------[ first line different ]------
  290. 20225 CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZFalse) 'Pe 06/01/92
  291.         WasJ = INSTR(Mid$(ZCompressedExt$+". ",WasI),".")        'Pe 04/18/92
  292.        IF WasJ = 0 THEN _                                        'Pe 04/18/92
  293.           GOTO 20231                                             'Pe 06/04/92
  294.               Check$ = MID$(ZCompressedExt$,WasI,WasJ-1)         'Pe 04/28/92
  295.           WasI = WasI + WasJ                                     'Pe 04/18/92
  296.        ZFileName$ = WasX$ + "." + Check$                         'Pe 04/18/92
  297.       ZFileNameHold$ = ZFileName$                                'Pe 04/18/92
  298.      GOSUB 20210                                                 'Pe 06/01/92
  299.  IF ZOK THEN _                                                   'Pe 06/01/92
  300.        GOTO 20235                                                'Pe 06/01/92
  301.      IF ZDotFlag THEN _                                          'Pe 06/01/92
  302.         RETURN                                                   'Pe 06/01/92
  303.       GOTO 20225                                                 'Pe 06/01/92
  304. * REPLACING old line(s) by new
  305. * ------[ first line different ]------
  306. 20231 ZOutTxt$ = TmpFileNameHold$ + _                             'Pe 04/18/92
  307.            " not found!"
  308.       CALL UpdtCalr (ZOutTxt$,2)
  309.       ZOutTxt$ = ZOutTxt$ + _
  310.            " Correct name"+ZPressEnterExpert$
  311.       ZSuspendAutoLogoff = ZTrue
  312.       GOSUB 21660
  313.       ZSuspendAutoLogoff = ZFalse
  314.       IF ZFileSysParm > 1 THEN _
  315.          RETURN
  316.       IF ZWasQ=0 THEN _
  317.          IF ZBatchTransfer AND ZAnsIndex >= LastDnld THEN _
  318.             GOTO 20262 _
  319.          ELSE ZAutoLogOffReq = ZFalse : _
  320.               RETURN
  321.       ZUserIn$(ZAnsIndex) = ZUserIn$(1)
  322.       GOTO 20205
  323. * REPLACING old line(s) by new
  324. 20236 ZLine25$ = "(D) " + _
  325.                  ZWasZ$
  326. * ------[ first line different ]------
  327. '
  328. ' *  TEST FOR DOWNLOAD SECURITY
  329. '
  330.       CALL OpenWork (2,ZFileSecFile$)
  331.       IF ZErrCode = 53 THEN _
  332.          CALL UpdtCalr ("Missing file " + ZFileSecFile$,2) : _
  333.          GOTO 20247
  334. * REPLACING old line(s) by new
  335. 20244 IF ZUserSecLevel < VAL(ZWorkAra$(2)) THEN _
  336.          GOTO 20245
  337.       FilePswd$ = ZWorkAra$(3)
  338.       IF FilePswd$ = "" THEN _
  339.          GOTO 20247
  340. * ------[ first line different ]------
  341.       CALL AraAllCaps (ZUserIn$(),1)
  342.       IF ZUserIn$(1) = FilePswd$ THEN _
  343.          GOTO 20247
  344.       ZOutTxt$ = "Enter PASSWORD to download " + _
  345.            ZFileName$
  346.       GOSUB 21660
  347.       IF ZFileSysParm > 1 THEN _
  348.          RETURN
  349.       IF ZWasQ = 0 THEN _
  350.          RETURN
  351.       CALL AllCaps (ZUserIn$(1))
  352.       IF ZUserIn$(1) = FilePswd$ THEN _
  353.          GOTO 20247
  354. * REPLACING old line(s) by new
  355. 20247 ZWasDF = 0
  356.       CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZFalse)
  357. * ------[ first line different ]------
  358.  IF INSTR("...WRK.FW .ARC.EXE.COM.OBJ.WKS.LBR.ZIP.PAK.ZOO.ARJ.LZH.","."+Extension$+".") > 2 OR _
  359.          MID$(Extension$,2,1) = "Q" OR _
  360.          (ZRequireNonASCII AND Extension$ = "BAS") THEN _
  361.             ZWasDF = ZTrue
  362. * REPLACING old line(s) by new
  363. 20260 ZTransferFunction = 1
  364. * ------[ first line different ]------
  365.       ZWasBatchTransfer = ZFalse             'Pe 03/02/92
  366.       ZUpBatchTransfer = ZFalse              'Pe 03/02/92
  367.       GOSUB 21790
  368.       IF ZFileSysParm > 1 THEN _
  369.          RETURN
  370.          ZBatchTransfer = ZBatchProto                     'Pe Batch Mod
  371.       IF ZBatchTransfer AND ZCmdTransfer$ = "" THEN _
  372.          ZCmdTransfer$ = ZWasFT$
  373.       ON INSTR("AXCYN",ZInternalProt$) GOTO _
  374.          20340, _              ' ASCII DOWNLOAD
  375.          20290, _              ' Xmodem
  376.          20290, _              ' Xmodem CRC
  377.          20270, _              ' YMODEM
  378.          21700                 ' NONE - CANCEL
  379. '
  380. ' *  EXTERNAL Protocol Downloads/Uploads
  381. '
  382. * REPLACING old line(s) by new
  383. 20262 IF ZBatchTransfer THEN _
  384.          IF ZAnsIndex < LastDnld THEN _
  385.             RETURN _
  386.          ELSE ZBlocksInFile# = BatchBlocks# : _
  387.               ZBytesInFile# = BatchBytes# : _
  388.               ZNumDnldBytes! = BatchBytes# : _
  389.               IF ZBytesInFile# < 1 THEN _
  390.                  RETURN _
  391.               ELSE GOSUB 20780 : _
  392.                    IF ZFileSysParm > 1 OR NOT ZOK THEN _
  393.                       RETURN
  394. * ------[ first line different ]------
  395.          IF ZAbort THEN _
  396.             ZAbort = ZFalse : _              'Pe 01/26/92
  397.             ZDnldCompleted = ZFalse : _
  398.             GOSUB 21760 : _
  399.             RETURN
  400.       GOSUB 20337
  401.       CALL Transfer
  402. * REPLACING old line(s) by new
  403. 20263 IF ZPrivateDoor THEN _
  404.          ZCmdTransfer$ = ZWasFT$ : _
  405.          CALL XferType (2,ZTrue) : _
  406.          ZCmdTransfer$ = ""
  407.       CALL OpenWork (2,"XFER-" + ZNodeID$ + ".DEF")
  408.       IF ZErrCode <> 0 THEN _
  409.          GOTO 20267
  410.       CALL ReadParms (ZWorkAra$(), ZFailureParm, 1)
  411. * ------[ first line different ]------
  412.  
  413.       IF ZErrCode <> 0 THEN _
  414.          GOTO 20267
  415.       CLOSE 2
  416.       IF NOT ZFakeXRpt THEN _                  'Pe 03/26/92
  417.         Call TStats                            'Pe 03/26/92
  418.       CALL KillWork ("XFER-" + ZNodeID$ + ".DEF")
  419. * REPLACING old line(s) by new
  420. 20265 IF ZTransferFunction = 2 THEN _
  421.          IF INSTR(ZWorkAra$(ZFailureParm),ZFailureString$) <> 1 THEN _
  422.             GOTO 20700 _
  423.          ELSE GOTO 20730
  424.       IF ZTransferFunction = 1 THEN _
  425. * ------[ first line different ]------
  426.         ZDnldCompleted = (INSTR(ZWorkAra$(ZFailureParm),ZFailureString$) <> 1)  'Pe 05/30/91
  427.       GOSUB 21760
  428.       CALL Carrier
  429.       IF ZSubParm = -1 THEN _
  430.          ZFileSysParm = 7
  431.       RETURN
  432. '
  433. ' *  XFER FILE NOT Found
  434. '
  435. * REPLACING old line(s) by new
  436. * ------[ first line different ]------
  437. 20292 Call QuickTput1 (" Sorry NO internal Protocols available ") : _
  438.       Call Delaytime (3) : _
  439.       Return
  440. * DELETING old line(s)
  441. 20294
  442. * DELETING old line(s)
  443. 20325
  444. * REPLACING old line(s) by new
  445. * ------[ first line different ]------
  446. 20330 GOSUB 20337
  447.       ZOutTxt$ = ZProtoPrompt$ + _
  448.             " " + WasA1$ + _
  449.             " of " + _
  450.             ZFileNameHold$ + _
  451.             " ready.  <Ctrl X> aborts"
  452.       GOSUB 21650
  453.       RETURN
  454. * DELETING old line(s)
  455. 20335
  456. * REPLACING old line(s) by new
  457. 20340 IF ZWasDF THEN _
  458.          ZOutTxt$ = "Switch to a non-ascii protocol" : _
  459.          GOSUB 21650 : _
  460.          GOTO 21700
  461.       GOSUB 20750
  462.       IF ZFileSysParm > 1 OR NOT ZOK THEN _
  463.          RETURN
  464.       CALL OpenWork (2,ZFileName$)
  465.       IF (ZAnsIndex = FirstDnld OR NOT ZConcatFIles) THEN _
  466.          GOSUB 20337 : _
  467.          ZOutTxt$ = "^X aborts.  ^S suspends ^Q resumes" : _
  468.          GOSUB 21640 : _
  469.          IF ZFileSysParm > 1 THEN _
  470.             RETURN _
  471.          ELSE ZOutTxt$ = ZProtoPrompt$ + " SEND of " + _
  472.               ZFileNameHold$ + _
  473.               " ready. Press Any Key to start" : _
  474.          ZTurboKey = 2 : _
  475.          ZForceKeyboard = ZTrue : _
  476.          ZSuspendAutologoff = ZTrue : _
  477.          GOSUB 21660 : _
  478.          ZSuspendAutologoff = ZFalse : _
  479. * ------[ first line different ]------
  480.          IF ZFileSysParm > 1 THEN _
  481.             RETURN
  482. * REPLACING old line(s) by new
  483. 20380 ZStopInterrupts = ZFalse
  484.       WasTU = 0
  485.       SWAP WasTU,ZPageLength
  486.       CALL BufFile (ZFileName$,WasX)
  487.       SWAP WasTU,ZPageLength
  488.       ZNonStop = (ZPageLength < 1)
  489.       IF StopFile THEN _
  490. * ------[ first line different ]------
  491.          ZDnldCompleted = ZFalse : _   'Pe 05/29/91
  492.          GOTO 20390
  493. * REPLACING old line(s) by new
  494. 20385 ZDnldCompleted = ZTrue   'Pe 05/30/91
  495. * REPLACING old line(s) by new
  496. 20400 CALL TimeBack (1)
  497. * ------[ first line different ]------
  498.       ZUpBatchTransfer = ZFalse     'Pe 12/08/91
  499.       ZWasBatchTransfer = ZFalse
  500.       GOSUB 20420
  501.       ZAutoLogOffReq = 0
  502.       FirstUpld = ZAnsIndex
  503.       GOTO 20430
  504. * INSERTING new line(s)
  505. 20410 CALL TimeBack (1)
  506.       CALL KillWork (ZBatchWorkFile$)                 'Pe Batchup mod 
  507.       ZErrCode = 0
  508.       ZUpBatchTransfer = ZTrue
  509.       Call Killwork ("BatchUp" +ZNodeID$ +".LST")
  510.       ZErrCode = 0
  511.       ZAutoLogOffReq = 0
  512. '
  513. ' changes for 12/28/91
  514. '
  515. If LEN(ZUserIn$) < 3 Then _
  516.       CALL Batchit : _
  517.       FirstUpld = 2 : _
  518.       LastUpld = ZLastIndex : _
  519.       GOTO 20430
  520.      FirstUpld = ZAnsIndex
  521.     Goto 20430
  522.  
  523. * REPLACING old line(s) by new
  524. * ------[ first line different ]------
  525. 20420 ZOutTxt$ = "Upload what file"
  526.       GOSUB 21667
  527.       RETURN
  528. '
  529. ' *  SEARCH FOR DUPLICATE FILENAME
  530. '
  531. * REPLACING old line(s) by new
  532. 20432 FOR ZAnsIndex = FirstUpld TO LastUpld
  533.          IndexSave = ZAnsIndex
  534.          GOSUB 20471
  535.          GOSUB 20435
  536.          FirstUpld = FirstUpld + 1
  537.          IF ZFileSysParm > 1 THEN _
  538.             IndexSave = LastUpld + 1
  539.          ZAnsIndex = IndexSave
  540. * ------[ first line different ]------
  541.      NEXT
  542.     ZCmdTransfer$ = ""
  543.       RETURN
  544. * REPLACING old line(s) by new
  545. 20435 ZFileNameHold$ = ZUserIn$(ZAnsIndex)
  546.       ExtSrch = ZFalse
  547.       IF INSTR(ZFileNameHold$,".") = 0 THEN _
  548.          ZFileNameHold$ = ZFileNameHold$ + "." + ZDefaultExtension$
  549.       CALL AllCaps(ZFileNameHold$)
  550.       ZFileName$ = ZFileNameHold$
  551.       ZViolation$ = "Upload "
  552.       CALL NoPath (ZFileName$,BadFileNameIndex)
  553.       IF BadFileNameIndex THEN _
  554.          GOTO 20451
  555.       CALL BadFile (ZFileName$,BadFileNameIndex)
  556.       ON BadFileNameIndex GOTO 20440,20451,20515
  557. * ------[ first line different ]------
  558. '
  559. ' Following mod was orig from DGS-UNW mod....updated for Maple code 12/15/91
  560. ' 
  561. * REPLACING old line(s) by new
  562. * ------[ first line different ]------
  563. 20440 TmpName$ = ZDirPath$+"NOTHANX.DEF"                         'Pe 06/01/92
  564.       CALL FindIt (TmpName$)                                        'DGS-UNW
  565.       IF ZOK THEN
  566.        CALL QuickTPut1 ("Checking to see if "+ZFileNameHold$ + " is in a list of Un-Wanted Files...")
  567.         CALL OpenWork (2,TmpName$)
  568.          HaveFile$ = ""
  569.           FileInList = ZFalse
  570.             WHILE NOT EOF(2) AND NOT FileInList
  571.          INPUT #2, HaveFile$
  572.         CALL AllCaps (HaveFile$)
  573.           FileInList = (INSTR(ZFileNameHold$,HaveFile$) > 0)
  574.      WEND
  575.        CLOSE 2
  576.       END IF
  577.      IF FileInList THEN _
  578.     GOTO 20443
  579. '
  580. ' If you want to eliminate either one of these routines just comment
  581. ' out the one you don't want....NOTHANX.DEF must reside in RBBS's Subdir
  582. ' the OFFLINE.DIR were your Master FMS dir is kept....you can change names
  583. ' as you see fit. 
  584. '                  !!DO NOT COMMENT OUT THE LINE NUMBER !!
  585. '
  586.  TmpName$ = ZDirPath$+"OFFLINE.DIR"                            'PE mode2 to
  587.        CALL FindIt (TmpName$)                                        'DGS-UNW
  588.         IF ZOK THEN
  589.           CALL QuickTPut1 ("Checking OFFLINE file list for "+ZFileNameHold$ )
  590.            CALL OpenWork (2,TmpName$)
  591.             HaveFile$ = ""
  592.              FileInList = ZFalse
  593.                WHILE NOT EOF(2) AND NOT FileInList
  594.                 LINE INPUT #2, HaveFile$                     'Pe 12/15/91
  595.                  CALL AllCaps (HaveFile$)
  596.                   StopReading = INSTR(HaveFile$,".")
  597.                    HaveFile$ = Left$(HaveFile$,StopReading)    'Pe 12/16/91
  598.                   Search = INSTR(ZFileNameHold$,".")
  599.                   Search$ = Left$(ZFileNameHold$,Search)
  600.                  If Search$ = HaveFile$ THEN_
  601.                 FileInList = ZTrue
  602.              WEND
  603.       CLOSE 2
  604.         END IF
  605. '
  606. '    next 2 lines
  607. '    Allow Sysop to update FMS listing with a local upload
  608. '    even if the filename exists in the NOTHANX.DEF OR OFFLINE.DIR
  609. '
  610. * INSERTING new line(s)
  611. 20443   If ZSysop Then _
  612.             FileinList = ZFalse            'Pe 12/15/91
  613.         IF FileInList THEN _
  614.            CALL BufFile (ZHelpPath$+"NOTHANX.MSG",WasX) : _  'Pe 06/01/92
  615.            CALL DelayTime (3) : _
  616.            GOTO 20453
  617.         CALL Carrier
  618.         IF ZSubParm = -1 THEN _
  619.            ZFileSysParm = 7 : _
  620.            RETURN
  621.       PersFile$ = ZFileName$                                     'Pe 08/09/91
  622.       ZFileName$ = ZPersonalDrvPath$ + PersFile$                 'Pe 08/08/91
  623.       Call FindFile (ZFileName$,ZOK)                             'Pe 08/09/91
  624.       IF ZOK THEN Goto 20452                                     'Pe 08/09/91
  625.       ZFileName$ = PersFile$                                     'Pe 08/09/91
  626.       CALL RotorsDir (ZFileName$,ZSubDir$(),ZSubDirCount,ZTrue,"U")
  627. * REPLACING old line(s) by new
  628. 20450 IF Extension$ <> Check$ THEN _
  629. * ------[ first line different ]------
  630.       CALL RotorsDir (WasX$ + "." + Check$,ZSubDir$(),ZSubDirCount,ZTrue,"U") : _
  631.          IF ZOK THEN _
  632.             ExtSrch = ZTrue : _
  633.             GOTO 20452
  634.       GOTO 20447
  635. * REPLACING old line(s) by new
  636. 20454 CALL QuickTPut1 ("Thanks, but we already have " + ZFileNameHold$)
  637. * ------[ first line different ]------
  638.       CALL DelayTime (3)  'Pe 08/04/91
  639.       PersFile$ = ""      'Pe 08/08/91
  640.       CALL UpdtCalr ("Upload duplicate " + ZFileNameHold$,1)
  641.       RETURN
  642. * REPLACING old line(s) by new
  643. 20455 ZOutTxt$ = "Add new directory entry (Y,[N])"
  644.       ZTurboKey = - ZTurboKeyUser
  645.       GOSUB 21660
  646.       IF ZFileSysParm > 1 THEN _
  647.          RETURN
  648.       IF NOT ZYes THEN _
  649.          RETURN
  650.       GOSUB 20460
  651.       IF WhoTo$ = "" THEN _
  652.          RETURN
  653.       AddingDescOnly = ZTrue
  654. * ------[ first line different ]------
  655.       ZWasBatchTransfer = ZFalse    'Pe 01/03/92
  656.       ZWasFT$ = "l"
  657. CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(),ZLinesInMsg,1) 'UPL-MOD pe082690
  658. 'Call AutoLogoff    'Pe 10/20/91 Test mod... remove when working
  659.       GOSUB 20702
  660.       RETURN
  661. * REPLACING old line(s) by new
  662. * ------[ first line different ]------
  663. 20460 CALL KillWork (ZNodeWorkFile$)      'Pe BatchUp
  664.       WhoTo$ = ""
  665.      IF ZUpBatchTransfer THEN _          'Pe 04/29/92
  666.       WhoTo$ = "ALL"                     'Pe 04/29/92
  667.       WasY$ = ZFileName$
  668.       IF ZUserSecLevel >= ZMinSecPersUpld THEN _
  669.          CALL SetWhoTo (ZTrue,WhoTo$,"",RcvrRecNum,Found) _
  670.       ELSE WhoTo$ = "ALL"
  671.       ZFileName$ = WasY$
  672.       RETURN
  673. * REPLACING old line(s) by new
  674. 20471 ZWasZ$ = ZUserIn$(ZAnsIndex)
  675.       CALL AllCaps(ZWasZ$)
  676.       WasX = 0
  677.       IF LEN (ZWasZ$) = 1 THEN _
  678.          WasX = INSTR(ZDefaultXfer$,ZWasZ$) : _
  679.          IF WasX > 0 THEN _
  680.             ZAnsIndex = ZAnsIndex + 1 : _
  681.             IndexSave = IndexSave + 1 : _
  682.             ZCmdTransfer$ = ZWasZ$ : _
  683. * ------[ first line different ]------
  684.             IF MID$(ZInternalEquiv$,WasX,1) = "N" THEN _
  685.                ZCmdTransfer$ = ""
  686.       RETURN
  687. * REPLACING old line(s) by new
  688. 20475 ZWasZ$ = ZUpldDriveFile$
  689.       CALL FindFree
  690.       IF VAL(ZFreeSpace$) < 4096 THEN _
  691.          GOSUB 21895 : _
  692.          IndexSave = ZLastIndex + 1 : _
  693.          RETURN
  694.       ZOutTxt$ = "Upload disk has" + _
  695.            ZFreeSpace$
  696.       GOSUB 21640
  697.       IF ZFileSysParm > 1 THEN _
  698.          RETURN
  699. * ------[ first line different ]------
  700.     GOSUB 20460                                                  'Pe 08/08/91
  701.       If ZMplPersUpload = ZTrue Then _                           'Pe 08/09/91
  702.       ZFileName$ = ZPersonalDrvPath$ + PersFile$                 'Pe 08/08/91
  703. '*****************
  704. CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(),ZLinesInMsg,1)  '<++++++
  705. '*****************
  706. * INSERTING new line(s)
  707. 20476 IF ZAbort THEN _     'Pe 09/07/91 added line number
  708.       ZAbort = ZFalse : _   'PE 12/14/88
  709.         RETURN
  710.       ZLine25$ = "(U) " + _
  711.                  ZFileNameHold$
  712.       ZSubParm = 2
  713.       CALL Line25
  714.       ZOutTxt$ = ""
  715.       ZOK = ZTrue
  716. * REPLACING old line(s) by new
  717. * ------[ first line different ]------
  718. 20500  ZTransferFunction = 2
  719.       GOSUB 21790
  720.       IF ZFileSysParm > 1 THEN _
  721.          RETURN
  722.       IF ZInternalProt$ = "N" THEN _                       'Pe 08/08/91
  723.          GOTO 21700                                        'Pe 08/08/91
  724. IF NOT ZUpBatchTransfer THEN _
  725. CALL AutoLogOff            'Pe 02/04/90
  726.       IF ZAutoEnd = 2 THEN _
  727.          RETURN
  728.       ON INSTR("AXCYN",ZInternalProt$) GOTO _
  729.          20560, _         ' ASCII UPLOAD
  730.          20542, _         ' Xmodem
  731.          20542, _         ' Xmodem CRC
  732.          20542, _         ' YMODEM
  733.          20735            ' NONE - CANCEL
  734.       GOTO 20261
  735. * REPLACING old line(s) by new
  736. * ------[ first line different ]------
  737. 20542 Call QuickTput1 ("Sorry NO Internal Protocols avaialble ") : _
  738.       Call Delaytime (3) : _
  739.       Return
  740. '
  741. ' *  ASCII UPLOAD
  742. '
  743. * REPLACING old line(s) by new
  744. 20700 GOSUB 21780
  745.       IF ZFileSysParm > 1 THEN _
  746.          RETURN
  747. * ------[ first line different ]------
  748. '
  749. '20702 IF ZWasFT$ = "l" THEN _          'Pe 12/28/91
  750. '         ZWasBatchTransfer = ZFalse    'Pe 12/28/91
  751. '
  752. 'Line number moved for Local Uploads    'Pe 01/03/91
  753. '
  754.       IF ZWasBatchTransfer Then _
  755.         CALL BatchUpload (ZDesc$,ZUCat$,2) : _
  756.         GOTO 20703
  757. * REPLACING old line(s) by new
  758. * ------[ first line different ]------
  759. 20702 CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(), ZLinesInMsg,2) 'Pe 02/03/90
  760. '
  761. * INSERTING new line(s)
  762. 20703 IF ZAutoEnd = 1 THEN _                'AUTO-UP MOD
  763.          ZFileSysParm = 7: _             'Pe BatchUp 09/12/91
  764.          ZDnldCompleted = ZTrue : _      'Pe BatchUp 09/12/91
  765.          RETURN                             'AUTO-UP MOD
  766.       IF NOT ZGetExtDesc THEN _
  767.          ZPrivateDoor = ZFalse : _
  768.          GOTO 20710
  769.       ZMsgHeader$ = "Extended Description for " + ZFileNameHold$
  770.       ZSysopComment = ZTrue
  771.       ZMaxMsgLines = ZMaxExtendedLines
  772.       WasLL = ZRightMargin
  773.       ZRightMargin = 30 + ZMaxDescLen
  774.       IF ZRightMargin > 74 THEN _
  775.          ZRightMargin = 74
  776.       ZFileSysParm = 5
  777.       RETURN
  778. * REPLACING old line(s) by new
  779. 20705 ZMaxMsgLines = ZMaxMsgLinesDef
  780.       ZRightMargin = WasLL
  781. * ------[ first line different ]------
  782.       CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(),ZLinesInMsg,3)  'Pe 02/04/90
  783. * REPLACING old line(s) by new
  784. 20730 GOSUB 21780
  785.       CALL QuickTPut1 ("Upload aborted")
  786. * ------[ first line different ]------
  787.       ZAutoLogoffReq = ZFalse                'Pe 10/20/91
  788.       ZWasBatchTransfer = ZFalse             'Pe 03/02/92
  789.       ZUpBatchTransfer = ZFalse              'Pe 03/02/92
  790.       LastUpld = 0
  791.       ZPrivateDoor = ZFalse
  792. * REPLACING old line(s) by new
  793. 20735 CALL KillWork (ZFileName$)
  794. * ------[ first line different ]------
  795.       IF ZErrCode <> 0 THEN _
  796.          ZWasEL = 20736 : _
  797.          GOTO 21900
  798.       ZAnsIndex = ZLastIndex + 1
  799.       IndexSave = ZAnsIndex
  800.       ZLastIndex = 0
  801.       RETURN
  802. '
  803. ' *  Sysop ABORTED UPLOAD
  804. '
  805. * REPLACING old line(s) by new
  806. 20791 CALL CheckTimeRemain (MinsRemaining)
  807.       IF ZSubParm = -1 THEN _
  808.          ZFileSysParm = 6 : _
  809.          RETURN
  810.       ZOK = ZTrue
  811.       Temp = ZExtraDnldTime
  812.       CALL ChkAddedTime (Temp)
  813.       Temp = MinsRemaining + Temp
  814.       ZWasA = INT(ZBlocksInFile# / 60) + 1
  815.       IF ZWasA <= Temp THEN _
  816.          GOTO 20793
  817. * ------[ first line different ]------
  818.       IF ZDownFiles < 2 THEN _
  819.          CALL AllCaps (ZFileNameHold$) : _
  820.          ZOutTxt$ = ZFileNameHold$ + " Not enough minutes left!  Need" _
  821.                  + STR$(ZWasA) + "  have" + STR$(Temp) : _
  822.          CALL UpdtCalr (ZOutTxt$,2) : _
  823.          CALL QuickTPut1 (ZOutTxt$) _
  824.       ELSE CALL OpenWork (2,ZNodeWorkFile$) : _
  825.            WHILE NOT EOF(2) : _
  826.               CALL ReadDir (2,1) : _
  827.               CALL BreakFileName (ZOutTxt$,DR$,ZWasY$,WasX$,ZTrue): _
  828.               ZFileName$ = ZWasY$ + WasX$ : _
  829.               ZOutTxt$ = ZFileName$ + " Not enough minutes left!  Need" _
  830.                          + STR$(ZWasA) + "  have" + STR$(Temp) : _
  831.               CALL UpdtCalr (ZOutTxt$,2) : _
  832.            WEND : _
  833.            CLOSE 2 : _
  834.            ZOutTxt$ = "Not enough minutes left!  Need"  _
  835.                        + STR$(ZWasA) + "  have" + STR$(Temp) : _
  836.            CALL QuickTPut1 (ZOutTxt$)
  837.       CALL DelayTime (3)
  838.       IF ZDownFiles < 2 THEN _
  839.          GOTO 20792
  840.       ZLastIndex = 0
  841.       ZOutTxt$ = "Edit files to download ([Y],N)"
  842.       ZTurboKey = - ZTurboKeyUser
  843.       GOSUB 21668
  844.       IF ZNo THEN _
  845.          LastDnld = 0 : _
  846.          GOTO 20792
  847.       Temp = 0
  848.       CALL OpenWork (2,ZNodeWorkFile$)
  849.       WHILE NOT EOF(2)
  850.          CALL ReadDir (2,1)
  851.          CALL BreakFileName (ZOutTxt$,DR$,ZWasY$,WasX$,ZTrue)
  852.          ZFileName$ = ZWasY$ + WasX$
  853.          ZOutTxt$ = "Download " + ZFileName$ + " (Y,[N])"
  854.          ZTurboKey = - ZTurboKeyUser
  855.          GOSUB 21668
  856.          IF ZYes THEN _
  857.             Temp = Temp + 1 : _
  858.             ZOutTxt$(Temp) = ZFileName$
  859.       WEND
  860.       CLOSE 2
  861.       ZAnsIndex = 1
  862.       ReStart = (Temp > 0)
  863.       LastDnld = Temp
  864.       ZLastIndex = Temp
  865.       FOR WasX = 1 TO Temp
  866.          ZUserIn$(WasX) = ZOutTxt$(WasX)
  867.       NEXT
  868. * REPLACING old line(s) by new
  869. 20793 IF ZRatioRestrict# > 0 THEN _
  870.          CALL QuickTPut1 ("New statistics will be") : _
  871.          CALL CheckRatio (ZTrue)
  872. * ------[ first line different ]------
  873.       CALL AutoLogoff
  874.       IF ZAutoEnd = 2 THEN _
  875.       ZOK = ZFalse
  876.       RETURN
  877. * REPLACING old line(s) by new
  878. 20851 ZWasY$ = ""
  879.       CALL CheckCarrier
  880.       IF ZSubParm = -1 THEN _
  881.          ZFileSysParm = 7 : _
  882.          RETURN
  883.       RETURN
  884. '
  885. * ------[ first line different ]------
  886. ' *  CHANGE TO 8 BIT FOR Xmodem
  887. '
  888. * DELETING old line(s)
  889. 20860
  890. 20900
  891. 20903
  892. 20920
  893. 20922
  894. 20930
  895. 20960
  896. 20970
  897. 20990
  898. * REPLACING old line(s) by new
  899. 20996 WasSO = 0
  900.       RETURN
  901. '
  902. * ------[ first line different ]------
  903. ' STANDARD ENTRY FOR RBBS-PC'S COMMON TERMINAL OUTPUT ROUTINE
  904. '
  905. ' Modeled on lines 12975 to 12983 in RBBS-PC.BAS
  906. * DELETING old line(s)
  907. 20999
  908. 21000
  909. 21020
  910. 21040
  911. 21050
  912. 21060
  913. 21070
  914. 21080
  915. 21090
  916. 21100
  917. 21110
  918. 21113
  919. 21120
  920. 21131
  921. 21145
  922. 21150
  923. 21170
  924. 21180
  925. 21190
  926. 21191
  927. 21200
  928. 21210
  929. 21212
  930. 21220
  931. 21225
  932. 21230
  933. 21240
  934. 21250
  935. 21280
  936. 21281
  937. 21300
  938. 21303
  939. 21350
  940. 21360
  941. 21380
  942. 21390
  943. 21410
  944. 21415
  945. 21420
  946. 21440
  947. 21443
  948. 21445
  949. 21450
  950. 21455
  951. 21460
  952. 21470
  953. 21480
  954. 21490
  955. 21503
  956. 21504
  957. 21510
  958. 21530
  959. 21531
  960. 21540
  961. 21545
  962. 21550
  963. 21560
  964. 21561
  965. * REPLACING old line(s) by new
  966. 21720 CALL LPrnt (WasD$,NumReturns)
  967.       RETURN
  968. '
  969. * ------[ first line different ]------
  970. ' * UPDATE DOWNLOAD STATISTICS
  971. '
  972. '  (formerly lines 50600 to 50614 in RBBS-PC.BAS
  973. * DELETING old line(s)
  974. 21750
  975. * REPLACING old line(s) by new
  976. 21760 GOSUB 21780
  977.       IF ZFileSysParm > 1 THEN _
  978.          RETURN
  979.       IF ZBatchTransfer THEN _
  980.          CALL LinesInFile (ZNodeWorkFile$,ZDownFiles) _
  981.       ELSE ZDownFiles = 1
  982. * ------[ first line different ]------
  983.       IF NOT ZDnldCompleted THEN _     'Pe 05/31/91
  984.          ZAutoLogoffReq = ZFalse : _
  985.          ZWasDF$ = " Aborted" : _
  986.          GOTO 21770
  987.       CALL LogPDown (ZPersonalDnld,1+ZAnsIndex-FirstDnld)
  988.       WasX = ((ZRatioRestrict# > 0) AND ZEnforceRatios AND ZFreeDnld)
  989.       IF NOT WasX THEN _
  990.          ZDnlds = ZDnlds + ZDownFiles : _
  991.          ZGlobalDLToday! = ZGlobalDLToday! + ZDownFiles : _
  992.          ZGlobalDnlds = ZGlobalDnlds + ZDownFiles : _
  993.          ZDLBytes! = ZDLBytes! + ZNumDnldBytes! : _
  994.          ZGlobalDLBytes! = ZGlobalDLBytes! + ZNumDnldBytes! : _
  995.          ZDLToday! = ZDLToday! + ZDownFiles : _
  996.          ZBytesToday! = ZBytesToday! + ZNumDnldBytes! : _
  997.          ZGlobalBytesToday! = ZGlobalBytesToday! + ZNumDnldBytes!
  998.       ZNumDnldBytes! = 0
  999.       ZWasDF$ = " Downloaded"
  1000.       IF (ZAnsIndex = LastDnld OR NOT ZConcatFIles) THEN _
  1001.          CALL SkipLine (1) : _
  1002.          CALL QuickTPut1 ("Download successful")
  1003.          IF WasX THEN _
  1004.             CALL QuickTPut1 ("but not counted against ratios")
  1005. * DELETING old line(s)
  1006. 21768
  1007. * REPLACING old line(s) by new
  1008. * ------[ first line different ]------
  1009. 21773 IF ZTransferFunction = 1 THEN
  1010.      CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZTrue)
  1011.       ZWasZ$ = WasX$ + _
  1012.            Extension$ + _
  1013.            ZWasDF$ + _
  1014.            " at " + _
  1015.            ZTime$ + _
  1016.            " using " + _
  1017.            ZWasFT$ + _
  1018.            STR$(ZBytesInFile#)
  1019.       CALL UpdtCalr (ZWasZ$,2)
  1020.    END IF
  1021.       IF ZBatchTransfer THEN _
  1022.          ZWasQ = ZWasQ - 1 : _
  1023.          GOTO 21772
  1024.       'CALL CheckRatio (ZFalse)
  1025. * REPLACING old line(s) by new
  1026. * ------[ first line different ]------
  1027. 21774  RETURN
  1028. '
  1029. '
  1030. ' *****   TURN ON INTERMEDIATE ECHO   ****
  1031. '
  1032. '  (formerly line 50620 in RBBS-PC.BAS
  1033. * REPLACING old line(s) by new
  1034. * ------[ first line different ]------
  1035. 21790  Call CheckCarrier                  'Pe 12/31/91
  1036.       IF ZSubParm = -1 THEN _             'Pe 12/31/91
  1037.          ZFileSysParm = 7 : _             'Pe 12/31/91
  1038.        Return                             'Pe 12/31/91
  1039.        IF ZEchoer$ = "I" THEN _
  1040.          CALL SetEcho ("R")
  1041.       RETURN
  1042. '
  1043. ' *****   DIRECTORY SEARCH   ****
  1044. '
  1045. '  (formerly lines 52900 to 52920 in RBBS-PC.BAS
  1046. * REPLACING old line(s) by new
  1047. 21820 WasRS$ = ZUserIn$(ZAnsIndex)
  1048.       WildSearch = (INSTR(WasRS$,"*") > 0 OR INSTR(WasRS$,"?") > 0)
  1049.       CALL AllCaps (WasRS$)
  1050.       IF RIGHT$(WasRS$,1) = "*" THEN _
  1051.          IF RIGHT$(WasRS$,2) <> ".*" THEN _
  1052.             WasRS$ = WasRS$ + ".*"
  1053.       SearchString$ = WasRS$
  1054.       SearchDate$ = ""
  1055.       ZJumpSearching = ZFalse
  1056.       WasA1$ = WasRS$
  1057. * ------[ first line different ]------
  1058.       ZExtendedOff = ZFalse 'ZTrue       'Pe 10/27/91
  1059.       GOTO 21867
  1060. '
  1061. ' *****  P - personal download  ****
  1062. '
  1063. '  (formerly lines 52950 to 52952 in RBBS-PC.BAS
  1064. * REPLACING old line(s) by new
  1065. * ------[ first line different ]------
  1066. 21854 RETURN
  1067. '
  1068. ' *  WasN - COMMAND FROM FILES MENU (DISPLAY NEW FILES SINCE Last DIR DISPLAY)
  1069. '
  1070. '  (formerly lines 53000 to 53070 in RBBS-PC.BAS
  1071. * REPLACING old line(s) by new
  1072. 21866 SearchDate$ = WasRS$
  1073.       SearchString$ = ""
  1074.       ZJumpSearching = ZFalse
  1075. * ------[ first line different ]------
  1076.       ZExtendedOff = ZFalse 'ZTrue             'Pe 10/27/91
  1077.       ZUserIn$(ZAnsIndex) = "A"
  1078.        ZEndList = ZTrue          'Pe 12/01/91
  1079.        GOTO 21871                'Pe NewFile mod
  1080. * REPLACING old line(s) by new
  1081. * ------[ first line different ]------
  1082. 21867 CALL GetDirs (ZFalse)
  1083.       IF ZWasQ = 0 THEN _
  1084.          RETURN
  1085. * REPLACING old line(s) by new
  1086. 21880 WasQX = ZAnsIndex
  1087.       GOSUB 20157
  1088.       IF ZFileSysParm > 1 THEN _
  1089.          RETURN
  1090.       ZAnsIndex = ZAnsIndex + 1
  1091.       IF ZAnsIndex <= ZLastIndex THEN _
  1092.          GOTO 21875
  1093.       ListNew = ZFalse
  1094. * ------[ first line different ]------
  1095.       ZEndList = ZFalse       'Pe 12/01/91
  1096.       SearchString$ = ""
  1097.       SearchDate$ = ""
  1098.       RETURN
  1099. * REPLACING old line(s) by new
  1100. 21900 IF ZDebug THEN _
  1101.          ZOutTxt$ = "RBBSSUB5 DEBUG Error Trap Entry ERL=" + _
  1102.               STR$(ZWasEL) + _
  1103.               " ERR=" + _
  1104.               STR$(ZErrCode) : _
  1105.          IF ZPrinter THEN _
  1106.             CALL Printit(ZOutTxt$) _
  1107.          ELSE CALL LPrnt(ZOutTxt$,1)
  1108.       IF ZWasEL = 20126 AND ZErrCode = 53 THEN _
  1109.          GOTO 20142
  1110.       IF ZWasEL = 20242 AND ZErrCode = 62 THEN _
  1111.          CALL UpdtCalr (ZFileSecFile$ + " bad format!",2) : _
  1112.          GOTO 20247
  1113.       IF ZWasEL = 20263 THEN _
  1114.          ZOutTxt$ = "<Download aborted>" : _
  1115. * ------[ first line different ]------
  1116.          ZDnldCompleted = ZFalse : _          'Pe
  1117.          GOTO 20390
  1118.       IF ZWasEL = 20560 AND ZErrCode = 67 THEN _
  1119.          GOTO 20451
  1120.       IF ZWasEL = 20560 AND ZErrCode = 70 THEN _
  1121.          IF VAL(ZFreeSpace$) > 1999 THEN _
  1122.             GOTO 20610 _
  1123.          ELSE GOSUB 21895 : _
  1124.               GOTO 21700
  1125.       IF ZWasEL = 20620 THEN _
  1126.          GOTO 20670
  1127.       IF ZWasEL = 20650 THEN _
  1128.          GOTO 20670
  1129.       IF ZWasEL = 20736 AND ZErrCode = 53 THEN _
  1130.          GOTO 21700
  1131. * REPLACING old line(s) by new
  1132. 63320 ' $SUBTITLE: 'ShellExit - sub to shell out from RBBS'
  1133. ' $PAGE
  1134. '
  1135. '  NAME    -- ShellExit
  1136. '
  1137. '  INPUTS  -- ShellTem$     String to invoke shell with
  1138. '
  1139. '  OUTPUTS -- none
  1140. '
  1141. '  PURPOSE -- Delay so that strings can finish printing.  Restore comm
  1142. '             port on return
  1143. '
  1144.       SUB ShellExit (ShellTem$) STATIC
  1145. * ------[ first line different ]------
  1146.       CALL DelayTime (4 + ZBPS)   'Pe 08/12/91
  1147.       IF NOT ZLocalUser THEN _
  1148.          IF ZFossil THEN _
  1149.             CALL FOSExit(ZComPort) _
  1150.          ELSE CLOSE 3 : _
  1151.               OUT ZModemCntlReg,INP(ZModemCntlReg) OR 1
  1152.       CLOSE 2
  1153.       CALL MetaGSR (ShellTem$,ZFalse)
  1154.       SHELL ShellTem$
  1155.       IF ZFossil THEN _
  1156.          IF NOT ZLocalUser THEN _
  1157.             CALL FOSinit(ZComPort,Result) : _
  1158.             IF Result = -1 THEN _
  1159.                CALL PScrn("ERROR INIT FOSSIL AFT EXTERNAL") : _
  1160.                SYSTEM
  1161.       CALL DelayTime (2)
  1162.       CALL RestoreCom
  1163.       END SUB
  1164. * REPLACING old line(s) by new
  1165. 63397 IF EOF(6) THEN _         ' Read next line in macro
  1166. * ------[ first line different ]------
  1167.               ZMacroActive = ZFalse _
  1168.       ELSE CALL ReadDir (6,1) : _
  1169.            ZMacroActive = (ZErrCode = 0)
  1170.       RETURN
  1171. * REPLACING old line(s) by new
  1172. 63400 ' $SUBTITLE: 'LockAppend - prepares for file append'
  1173. ' $PAGE
  1174. '
  1175. '  NAME    -- LockAppend
  1176. '
  1177. '  INPUTS  -- ZWasEN$            Name of file to append to
  1178. '
  1179. '  OUTPUTS -- none
  1180. '
  1181. '  PURPOSE -- Locks and opens file to append to
  1182. '
  1183.       SUB LockAppend STATIC
  1184. * ------[ first line different ]------
  1185. IF ZNetWorkType <> 0 Then _       'Pe 04/04/92
  1186.       WasBX = &H4 : _            'Pe 03/16/92
  1187.       ZSubParm = 9 : _           'Pe 03/16/92
  1188.       CALL FileLock
  1189.       ZErrCode = 0
  1190.       CALL OpenWorkA (ZWasEN$)
  1191.       END SUB
  1192. * REPLACING old line(s) by new
  1193. 63410 ' $SUBTITLE: 'UnLockAppend - cleans up after file append'
  1194. ' $PAGE
  1195. '
  1196. '  NAME    -- UnLockAppend
  1197. '
  1198. '  INPUTS  -- none
  1199. '
  1200. '  OUTPUTS -- none
  1201. '
  1202. '  PURPOSE -- Unlocks and close file appending to
  1203. '
  1204.       SUB UnLockAppend STATIC
  1205. * ------[ first line different ]------
  1206. IF ZNetWorkType <> 0 Then _       'Pe 04/04/92
  1207.       WasBX = &H4 : _            'Pe 03/16/92
  1208.       ZSubParm = 10 : _          'Pe 03/16/92
  1209.       CALL FileLock
  1210.       CLOSE 2
  1211.       END SUB
  1212. * REPLACING old line(s) by new
  1213. 63465 ' Forces a keyboard pause inside a macro
  1214.       SUB PauseExit STATIC
  1215.       ZSubParm = 4
  1216.       ZTurboKey = -ZTurboKeyUser
  1217. * ------[ first line different ]------
  1218.       ZOutTxt$ = ZMorePrompt$ + LEFT$(">",-1*ZExpertUser) + MID$("? : ",2*ZTurboKey+1,2) ' TC041610
  1219.       ZForceKeyboard = ZTrue
  1220.       ZNoAdvance = ZTrue
  1221.       CALL TPut
  1222.       ZLinesPrinted = 0
  1223.       ZUserIn$ = ""
  1224.       END SUB
  1225. * REPLACING old line(s) by new
  1226. 63470 ' $SUBTITLE: 'SetPrompt - sub to set prompts based on user security'
  1227. ' $PAGE
  1228. '
  1229. '  NAME    -- SetPrompt
  1230. '
  1231. '  INPUTS  -- PARAMETER           MEANING
  1232. '             ZBegMain          POSITION START OF MAIN CMDS
  1233. '             ZBegFile          POSITION START OF FILE CMDS
  1234. '             ZBegUtil          POSITION START OF UTIL CMDS
  1235. '             ZBegLibrary       POSITION START OF Library CMDS
  1236. '
  1237. '  OUTPUTS -- PRESENT.OPTS$         DISPLAY WHAT USER CAN DO (1st)
  1238. '             CALLERS.OPTS$         DISPLAY WHAT USER CAN DO (2nd)
  1239. '             ZMainOpts$            MAIN OPTS USER CAN DO
  1240. '             ZFileOpts$            FILE OPTS USER CAN DO
  1241. '             ZUtilOpts$            UTIL OPTS USER CAN DO
  1242. '             ZLibOpts$         Library OPTS USER CAN DO
  1243. '
  1244. '  PURPOSE -- Sets command line display of what user can do by
  1245. '             section and display of what all user can do
  1246. '
  1247.       SUB SetPrompt STATIC
  1248.       First = ZBegMain
  1249.       Last = ZBegFile - 1
  1250.       CALL SetOpts (ZMainOpts$,ZInvalidMainOpts$,First,Last)
  1251.       First = ZBegFile
  1252.       Last = ZBegUtil - 1
  1253.       CALL SetOpts (ZFileOpts$,ZInvalidFileOpts$,First,Last)
  1254.       First = ZBegUtil
  1255.       Last = ZBegLibrary - 1
  1256.       CALL SetOpts (ZUtilOpts$,ZInvalidUtilOpts$,First,Last)
  1257.       First = ZBegLibrary
  1258.       Last = ZBegLibrary + 6
  1259.       CALL SetOpts (ZLibOpts$,ZInvalidLibraryOpts$,First,Last)
  1260.       First = 50
  1261.       Last = 56
  1262.       CALL SetOpts (SysOpt$,ZInvalidSysOpts$,First,Last)
  1263.       First = 46
  1264.       Last = 49
  1265.       CALL SetOpts (GlobalOpts$,InvalidGlobalOpts$,First,Last)
  1266.       IF LEN(SysOpt$) > 0 THEN _
  1267.          ZSystemOpts$ = "Sysop: " + _
  1268.                         SysOpt$
  1269.       ZMainOpts$ = GlobalOpts$ + ZMainOpts$ + _
  1270.                    MID$(ZAllOpts$,INSTR(ZOrigCommands$,"G"),1)
  1271.       ZFileOpts$ = GlobalOpts$ + _
  1272.                    ZFileOpts$
  1273.       ZUtilOpts$ = GlobalOpts$ + _
  1274.                    ZUtilOpts$
  1275.       ZLibOpts$ = GlobalOpts$ + _
  1276.                       ZLibOpts$
  1277.       CALL SortString (SysOpt$)
  1278.       CALL SortString (ZMainOpts$)
  1279.       ZMainOpts$ = ZMainOpts$ + _
  1280.                    SysOpt$
  1281.       CALL SortString (ZFileOpts$)
  1282.       CALL SortString (ZUtilOpts$)
  1283.       CALL SortString (ZLibOpts$)
  1284.       CALL AddCommas (ZMainOpts$)
  1285.       CALL AddCommas (ZFileOpts$)
  1286.       CALL AddCommas (ZUtilOpts$)
  1287.       CALL AddCommas (ZLibOpts$)
  1288.       ZDirPrompt$ = "What directory(s) (" + _
  1289. * ------[ first line different ]------
  1290.          MID$("U)pload,A)ll,P)ers,L)ist,E)xtra,[Q]uit)",8 * (ZUserSecLevel => ZMinSecToView) + 9)
  1291.       ZQuitPromptExpert$ = "QUIT C,S, or to F,[M],U"
  1292.       ZQuitPromptNovice$ = "QUIT C)onference, S)ession or to section " + _
  1293.                             "F)ile, [M]ain, U)til"
  1294.       ZQuitList$ = "FMUS@C"
  1295.       IF ZUserSecLevel < ZOptSec(18) THEN _
  1296.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,23) : _
  1297.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,61) : _
  1298.          MID$(ZQuitList$,5) = " "
  1299.       IF ZUserSecLevel < ZOptSec(15) THEN _
  1300.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,22) + _
  1301.                                MID$(ZQuitPromptExpert$,25) : _
  1302.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,56) + _
  1303.                                MID$(ZQuitPromptNovice$,63) : _
  1304.          MID$(ZQuitList$,3,1) = " "
  1305.       IF ZUserSecLevel < ZOptSec(6) THEN _
  1306.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,16) + _
  1307.                                MID$(ZQuitPromptExpert$,19) : _
  1308.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,41) + _
  1309.                                MID$(ZQuitPromptNovice$,49) : _
  1310.          MID$(ZQuitList$,1,1) = " "
  1311.       CALL SetSection
  1312.       END SUB
  1313. * REPLACING old line(s) by new
  1314. 63540 ' Match Name to one in message file
  1315.       SUB ChkMsgName (MsgFromCaller,MsgToCaller) STATIC
  1316. * ------[ first line different ]------
  1317.      IF ZNewUserDGS THEN _                                        'DGS-NEW
  1318.         CALL MsgNameMatch ("NEWUSER",ZActiveUserName$,6,MsgFromCaller) : _      'DGS-NEW
  1319.         CALL MsgNameMatch ("NEWUSER",ZActiveUserName$,37,MsgToCaller) : _       'DGS-NEW
  1320.      Exit Sub
  1321.       IF NOT ZRemoteSysop THEN _
  1322.          WasX$ = LEFT$("SYSOP",-5*ZSysop) : _
  1323.          CALL MsgNameMatch (ZorigUserName$,ZActiveUserName$,6,MsgFromCaller) : _ 'Dgs-ALSMod
  1324.          CALL MsgNameMatch (ZorigUserName$,ZActiveUserName$,37,MsgToCaller)  : _    'Dgs-ALSMod
  1325.          EXIT SUB
  1326.       CALL MsgNameMatch ("SYSOP",ZSysopFullName$,6,MsgFromCaller)
  1327.       IF NOT MsgFromCaller THEN _
  1328.          CALL MsgNameMatch (ZOrigUserName$,"",6,MsgFromCaller)
  1329.       CALL MsgNameMatch ("SYSOP",ZSysopFullName$,37,MsgToCaller)
  1330.       IF NOT MsgToCaller THEN _
  1331.          CALL MsgNameMatch (ZOrigUserName$,"",37,MsgToCaller)
  1332.       END SUB
  1333.       SUB MsgNameMatch (PrimeName$,AltName$,SearchPos,Found) STATIC
  1334.       WasX$ = LEFT$(PrimeName$+"  ",22-8*(SearchPos < 7))
  1335.       GOSUB 63542
  1336.       IF Found OR AltName$ = "" THEN _
  1337.          EXIT SUB
  1338.       WasX$ = LEFT$(AltName$ + "  ",22-8*(SearchPos < 7))
  1339.       GOSUB 63542
  1340.       EXIT SUB
  1341. * REPLACING old line(s) by new
  1342. 63542 WasY$ = MID$(ZMsgRec$,SearchPos,LEN(WasX$))
  1343. * ------[ first line different ]------
  1344.       CALL SmartText(WasY$,ZFalse, OverStrike)        'SM091908
  1345.       CALL AllCaps(WasY$)                'SM091908
  1346.       WasY$ = LEFT$(WasY$,LEN(WasX$))            'SM091908
  1347.       ZWasDF = INSTR(WasY$,"@")
  1348.       IF ZWasDF > 0 THEN _
  1349.          MID$(WasY$,ZWasDF) = "      "
  1350.       Found = (WasY$ = WasX$)
  1351.       RETURN
  1352.       END SUB
  1353. * REPLACING old line(s) by new
  1354. 63625 ' * Sets SysOp security variables Formerly 5370 of rbbs-pc.bas
  1355.       ' * Returns ZWasA true when remote or global sysop
  1356.       SUB SetSysOp STATIC
  1357.       ZRemoteSysop = ((ZActiveUserName$ = ZSecretName$) OR _
  1358. * ------[ first line different ]------
  1359.                       (ZOrigUserName$ = ZSecretName$)) _
  1360.       OR _
  1361.       (ZActivUserName$ ="SYSOP")     'LK 12/05/91
  1362.       ZWasA = ZRemoteSysop
  1363.       ZGlobalSysop = (ZGlobalSysop OR (ZWasA AND ZOrigCnfg$ = ZConfigFileName$))
  1364.       IF ZGlobalSysop THEN _
  1365.          ZWasA = ZTrue
  1366.       END SUB
  1367. * REPLACING old line(s) by new
  1368. 63630 ' * Sets the user preferences based on user record.
  1369.       ' * Formerly in RBBS-PC.BAS
  1370.       SUB SetUserPref STATIC
  1371.       IF ZWasA THEN _
  1372.          ZUserSecLevel = ZSysopSecLevel _
  1373.       ELSE ZUserSecLevel = CVI(ZSecLevel$)
  1374.       ZBankTime = ASC(ZBankTime$)
  1375.       ZLastMsgRead = CVI(MID$(ZUserOption$,3,2))
  1376.       ZUserXferDefault$ = MID$(ZUserOption$,5,1)
  1377.       IF ZUserXferDefault$ = " " THEN _
  1378.          ZUserXferDefault$ = "N"
  1379.       CALL XferType (2,ZTrue)
  1380.       WasX = ASC(MID$(ZUserOption$,6,1))
  1381.       ZWasGR = (WasX MOD 3)
  1382.       ZBoldText$ = CHR$(48 - (WasX > 50))
  1383.       ZUserTextColor = (WasX - ZWasGR)/3 + 21
  1384.       IF ZUserTextColor > 37 THEN _
  1385.          ZUserTextColor = ZUserTextColor - 7
  1386.       IF ZEmphasizeOff$ <> "" THEN _
  1387.          CALL QuickTPut (ZColorReset$,0)
  1388.       IF ZEmphasizeOnDef$ <> "" THEN _
  1389.          ZEmphasizeOff$ = ZEscape$ + "[" + ZBoldText$ + ";40;" + MID$(STR$(ZUserTextColor),2) + "m" _
  1390.       ELSE ZEmphasizeOff$ = ""
  1391.       IF ZWasGR = 1 AND NOT ZEightBit THEN _
  1392.          ZWasGR = 0
  1393.       CALL SetGraphic (ZWasGR)
  1394.       ZRightMargin = CVI(MID$(ZUserOption$,7,2))
  1395.       IF ZRightMargin > 72 THEN _
  1396.          ZRightMargin = 72
  1397. * ------[ first line different ]------
  1398.            IF NOT ZConfMode THEN _
  1399.          ZWasCI$ = ZCityState$ : _
  1400.       CALL Trim (ZWasCI$)
  1401.       UserOptions = CVI(MID$(ZUserOption$,9,2))
  1402.       ZPromptBell = (UserOptions AND 1) > 0
  1403.       ZExpertUser = (UserOptions AND 2) > 0
  1404.       CALL SetExpert
  1405.       ZNulls = (UserOptions AND 4) > 0
  1406.       ZUpperCase = (UserOptions AND 8) > 0
  1407.       ZLineFeeds = (UserOptions AND 16) > 0
  1408.       ZCheckBulletLogon = (UserOptions AND 32) > 0
  1409.       ZSkipFilesLogon = (UserOptions AND 64) > 0
  1410.       ZFullScreenEditor = (UserOptions AND 128) > 0    'Pe 09/02/91
  1411.       ZReqQuesAnswered = (UserOptions AND 256) > 0
  1412.       ZMailWaiting = (UserOptions AND 512) > 0
  1413.       WasX = (UserOptions AND 1024 ) > 0
  1414.       CALL SetHiLite (NOT WasX)
  1415.       IF NOT ZHiLiteOff THEN _
  1416.          CALL QuickTPut (ZEmphasizeOff$,0)
  1417.       ZTurboKeyUser = (UserOptions AND 2048) > 0
  1418.       ZTurboKey = ZFalse
  1419.       ZFileWaiting = (UserOptions AND 4096) > 0
  1420.       CALL SetRegDisplay
  1421.       ZPageLength = ASC(MID$(ZUserOption$,13,1))
  1422.       IF ZSubBoard THEN _
  1423.          GOTO 63632
  1424.       WasX$ = ZEchoer$
  1425.       ZEchoer$ = MID$(ZUserOption$,14,1)
  1426.       IF INSTR("ICR",ZEchoer$) = 0 THEN _
  1427.          ZEchoer$ = "R"
  1428.       IF WasX$ <> ZEchoer$ THEN _
  1429.          CALL ReportEcho
  1430.       CALL SetEcho (ZEchoer$)
  1431. * REPLACING old line(s) by new
  1432. 63640 ' * Welcomes caller on
  1433. * ------[ first line different ]------
  1434.       SUB SayWelcome (anystring$,FF) STATIC   'Pe 08/01/92
  1435.       On FF Goto 63641,63643,63644       'Pe 08/01/92
  1436. * INSERTING new line(s)
  1437. 63641 LOCATE 24,1                  'Pe 08/01/92
  1438.       CALL AMorPM
  1439.       ZUserLogonTime! = TIMER
  1440.       ZTimeLoggedOn$ = TIME$
  1441.       ZLinesPrinted = 0
  1442.       ZExpertUser = ZFalse
  1443.       CALL SetExpert
  1444.       ZOutTxt$ = ""
  1445.       IF ZMaxNodes > 1 THEN _
  1446.          ZOutTxt$ = " - Node " + ZNodeID$
  1447.       IF ZReliableMode THEN _
  1448.          ZOutTxt$ = ZOutTxt$ + " (Reliable)"
  1449. '      CALL QuickTPut1 ("Welcome to " + ZRBBSName$ + ZOutTxt$)  'Pe 06/26/92
  1450.       CALL TestANSI
  1451.       ZTestParity = ZTrue
  1452.       ZStopInterrupts = ZTrue
  1453.       ZFileName$ = ZPreLog$
  1454.       CALL FlushCom (WasX$)
  1455.       ZCommPortStack$ = ""
  1456. Exit Sub                         'Pe 08/01/92
  1457.  
  1458. 63643 IF NOT ZNewUser THEN _
  1459.      CALL QuickTPut1 (ZFG1$ +"Times on   :" + STR$(ZTimesLoggedOn) + ZCrLf$ +_
  1460.                       + ZFG2$ +"Last on was: " + anystring$ + ZEmphasizeOff$)
  1461.  IF ZRemindFileXfers OR NOT ZNewUser THEN _
  1462.        CALL CheckRatio (ZFalse)
  1463. Exit Sub
  1464.  
  1465. 63644 CALL QuickTPut1 (ZFG1$+"Logging " + ZActiveUserName$)
  1466. CALL QuickTPut1 (ZFG2$ + "RBBS-PC " + ZVersionID$ + ZCrLf$ + _
  1467.                  ZFG3$ + "Node " + ZNodeID$ + ZCrLf$ +_
  1468.                  ZFG4$ + "Operating at " + anystring$ + ZEmphasizeOff$) 'Pe 08/21/91
  1469. Call SkipLine (1) 
  1470.     IF ZMaxNodes > 1 THEN                                        ' CHAT0805
  1471.        CALL LogNewForChat (ZMaxNodes)                            ' CHAT0805
  1472.     END IF                                                       ' CHAT0805
  1473.  
  1474.       END SUB
  1475.  
  1476. * REPLACING old line(s) by new
  1477. 63656 CALL GetPassword
  1478.       IF ZErrCode <> 0 THEN _
  1479.          CALL UpdtCalr (ZPswdFile$ + " bad format!",2) : _
  1480.          GOTO 63659
  1481.       IF MatchPass THEN _
  1482.          ZTempPassword$ = LEFT$(ZTempPassword$ + SPACE$(15),15) : _
  1483.          IF MatchPass$ <> ZTempPassword$ THEN _
  1484.             GOTO 63654 _
  1485.          ELSE IF ZUserSecLevel >= ZMinSecForTempPswd THEN _
  1486.                  GOTO 63658 _
  1487.               ELSE GOTO 63654
  1488. * ------[ first line different ]------
  1489.    IF ZUserSecLevel <> ZTempSecLevel OR ZTempPassword$ <> "" THEN _
  1490.          GOTO 63654
  1491.       IF ZStartTime = 0 THEN _
  1492.          GOTO 63658
  1493.       WorkTime$ = TIME$
  1494.       TestTime = VAL(LEFT$(WorkTime$,2) + MID$(WorkTime$,4,2))
  1495.       IF TestTime => ZStartTime AND TestTime <= ZEndTime THEN _
  1496.          GOTO 63658
  1497.       IF ZEndTime < ZStartTime THEN _
  1498.          IF TestTime => ZStartTime OR TestTime <= ZEndTime THEN _
  1499.             GOTO 63658
  1500.       GOTO 63654
  1501. * REPLACING old line(s) by new
  1502. 63675 SUB SetUserUpDn STATIC
  1503.       ZDnlds = CVI(ZUserDnlds$)
  1504.       ZUplds = CVI(ZUserUplds$)
  1505.       ZBankTime = ASC(ZBankTime$)
  1506.       IF ZEnforceRatios THEN _
  1507.          ZDLToday! = CVS(ZTodayDl$) : _
  1508.          ZBytesToday! = CVS(ZTodayBytes$) : _
  1509.          ZDLBytes! = CVS(ZDlBytes$) : _
  1510.          ZULBytes! = CVS(ZULBytes$)
  1511.       END SUB
  1512.       SUB SetGlobalUpDn STATIC
  1513.       IF NOT ZGlobalsSet THEN _
  1514.          ZGlobalsSet = ZTrue : _
  1515.          ZGlobalDnlds = ZDnlds : _
  1516.          ZGlobalUplds = ZUplds : _
  1517.          ZGlobalDLToday! = ZDLToday! : _
  1518.          ZGlobalBytesToday! = ZBytesToday! : _
  1519.          ZGlobalDLBytes! = ZDLBytes! : _
  1520.          ZGlobalULBytes! = ZULBytes! : _
  1521.          ZGlobalBankTime = ZBankTime
  1522.       END SUB
  1523. * ------[ first line different ]------
  1524. '
  1525. * REPLACING old line(s) by new
  1526. 63700 ' $SUBTITLE: 'TestANSI - test caller for ANSI support'
  1527. ' $PAGE
  1528. '
  1529. '  NAME    -- TestANSI
  1530. '                                  MEANING
  1531. '  INPUTS  -- ZTestANSITime   # of seconds to wait for ANSI response
  1532. '                             0 = do not test for ANSI
  1533. '
  1534. * ------[ first line different ]------
  1535. '  OUTPUTS -- ZCanANSIChat      = ZTrue if ANSIChat possible         ' DD071301/CHAT
  1536. '
  1537. '  PURPOSE -- Test callers' software for support of ANSI graphics
  1538. '
  1539.       SUB TestANSI STATIC
  1540.       IF ZTestANSITime < 1 THEN _
  1541.          GOTO 63705
  1542.       IF ZLocalUser THEN _
  1543.          IF ZDOSAnsi THEN _
  1544.             GOTO 63710 _
  1545.          ELSE GOTO 63705
  1546.       CALL QuickTPut1 ("Testing For ANSI support..."+ZCrLf$)  'Pe 09/26/91
  1547.       CALL FlushCom(Temp$)
  1548.       CALL PutCom (ZEscape$ + "[6n")
  1549.       CALL DelayTime(ZTestANSITime)
  1550.       CALL WipeLine (5)
  1551.       CALL FlushCom(Temp$)
  1552.       CALL WipeLine (5)
  1553.       Temp = INSTR(Temp$,ZEscape$ + "[")
  1554.       IF Temp > 0 THEN _
  1555.          Temp = INSTR(Temp,Temp$,"R") : _
  1556.          IF TEMP > 0 AND TEMP < 9 THEN _
  1557.             GOTO 63710
  1558. * REPLACING old line(s) by new
  1559. 63710 CALL SetGraphic(2)
  1560.       ZHiLiteOff = ZFalse
  1561. * ------[ first line different ]------
  1562.      CALL QuickTPut1 ("*ANSI Color  Detected*")
  1563.       IF ZDOSANSI THEN _
  1564.          ZCanANSIChat = ZTrue        ' DD071301/CHAT
  1565.       END SUB
  1566. * REPLACING old line(s) by new
  1567. 63720 SUB AraAllCaps (Ara$(1),WhichElement) STATIC
  1568.       Temp$ = Ara$(WhichElement)
  1569.       CALL AllCaps (Temp$)
  1570.       Ara$(WhichElement) = Temp$
  1571.       END SUB
  1572. * ------[ first line different ]------
  1573. '
  1574. '******************** INSERTED AutoLogoff here ******************
  1575. '
  1576. ' $SUBTITLE: 'AutoLogOff - Subroutine to  to log off after transfer'
  1577. ' $PAGE
  1578. '
  1579.   SUB AutoLogOff STATIC
  1580.  ZAutoEnd = 0
  1581.  ZAbort = ZFalse    'Pe 01/19/92
  1582.   IF ZGetExtDesc = ZTrue or ZOK = ZFalse or ZAutoLogOffReq = ZTrue THEN _
  1583.     EXIT SUB
  1584.  ZSubParm = 1
  1585. ZStackC = ZTrue    'Pe 12/21/91
  1586. * INSERTING new line(s)
  1587. 64989  ZStopInterrupts = ZTrue   'Pe 04/17/92
  1588. CALL BufFile(ZHelpPath$+"AUTOOFF.MNU",X)     ' MO 04/13/92
  1589. '      ZOutTxt$ = " C)ontinue with transfer " + ZCrLf$ + _
  1590. '                 " A)bort transfer - Cancel"+ ZCrLf$ + _
  1591. '                 " G)o ahead LOG-OFF after Transfer " + ZCrLf$ + _
  1592. '                 ZCrLf$ + "Press [Enter] to continue or select (C,A,G)->"
  1593. ZStopInterrupts = ZFalse    'Pe 04/17/92
  1594. ZOutTxt$ = "Select ([C],A,G) "
  1595.         ZTurboKey = -ZTurboKeyUser
  1596.       ZSubParm = 1
  1597.       Call TGet
  1598.       CALL AllCaps (ZUserIn$)
  1599.       WasMplx = INSTR("CAG",ZUserIn$)
  1600.       CALL Carrier                      'Pe 03/06/92
  1601.       IF ZSubParm = -1 THEN _           'Pe 03/06/92
  1602.       ZFileSysParm = 7 : _              'Pe 03/06/92
  1603.       EXIT SUB                          'Pe 03/06/92
  1604. IF ZUserIn$ = "" or ZUserIn$ = " " Then _
  1605.       GOTO 64995
  1606.    ON WasMplx GOTO 64995,64990,64998
  1607.       GOTO 64989
  1608. 64990 ZAutoEnd = 2
  1609.       Call Skipline (2)
  1610.       EXIT SUB
  1611. 64995 ZAutoEnd = 3
  1612.       Call Skipline (2)
  1613.       EXIT SUB
  1614. 64998 ZAutoEnd = 1
  1615.       Call SkipLine (2)
  1616.       END SUB
  1617. '
  1618. ' ****  S - COMMAND FROM UTILITY MENU (STATISTICS)  ***  'Pe 09/02/91
  1619. '
  1620. SUB Statistics (CallsToDate!,ActiveMessages,HighMsgNumber,HighestMsgRecord,CurUserCount,MaxMsgs) STATIC
  1621.       ActionFlag = ZTrue
  1622.       IF ZActiveMessageFile$ = ZPrevBase$ THEN _
  1623.         ActionFlag = ZFalse
  1624.      CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$)
  1625.      ZOutTxt$ = ""
  1626.      IF NOT ZConfMode THEN _
  1627.            ZOutTxt$ = "Caller Number................"+STR$(CallsToDate!) + "  "+ZCrLf$
  1628. ZOutTxt$ = ZOutTxt$ + "Active Messages.............."+STR$(ActiveMessages)+ZCrLf$
  1629. ZOutTxt$ = ZOutTxt$ + "Next Msg Number.............."+STR$(HighMsgNumber + 1)+ZCrLf$
  1630.      IF ZLastMsgRead > 0 THEN _
  1631.      ZOutTxt$ = ZOutTxt$ + "Last msg you read............" + STR$(ZLastMsgRead)+ZCrLf$ _
  1632.      ELSE ZOutTxt$ = ZOutTxt$ + "You Have NOT Read Any Messages Yet !" +ZCrLf$ : _
  1633.      ZNewUserDgs = Ztrue
  1634.      ZSubParm = 2
  1635.      CALL TPut
  1636. IF ZSubParm < 0 THEN _
  1637.          EXIT SUB
  1638.     ZWasZ$ = ZUpldDriveFile$
  1639.      CALL FindFree
  1640.      CALL QuickTPut1 ("Upload disk has" + ZFreeSpace$)
  1641.      CALL QuickTPut1 ( "Free String Space = "+  (STR$(FRE("A")) + " bytes")) 'Pe 08/01/92
  1642.      CALL QuickTPut1 ( "StackSpace = "+  (STR$(CINT(FRE(-2))) + " bytes")) 'Pe 05/10/92
  1643.      IF (NOT ZSysop) AND (ZUserSecLevel < ZSecKillAny) THEN _
  1644.       CALL Delaytime (2) : _
  1645.         EXIT SUB
  1646.      UserWork = (ZHighestUserRecord * .95) + 1
  1647.      IF ZMsgsCanGrow THEN _
  1648.         ZWasY$ = " open" _
  1649.      ELSE ZWasY$ = STR$(HighestMsgRecord + 1 - ZMaxNodes - ZNextMsgRec)
  1650.      ZOutTxt$ = "USERS: used" + _
  1651.           STR$(CurUserCount - 1) + _
  1652.           " avl" + _
  1653.           STR$(UserWork - CurUserCount) + _
  1654.           "  MSGS: used" + _
  1655.           STR$(ActiveMessages) + _
  1656.           " avl" + _
  1657.           STR$(MaxMsgs - ActiveMessages) + _
  1658.           "  MSG REC: used" + _
  1659.           STR$(ZNextMsgRec - 1) + _
  1660.           " avl" + ZWasY$
  1661.      ZSubParm = 2
  1662.      CALL TPut
  1663. IF ZSubParm < 0 THEN _
  1664.    EXIT SUB
  1665. CALL DelayTime (2)
  1666. END SUB
  1667. '********************************************************************
  1668. '
  1669. SUB ShowUsrProfile STATIC
  1670.  CALL QuickTPut (CHR$(12),0) ' to clear screen
  1671. WasX$ =  "USER NAME : " + ZActiveUserName$ + ZCrLF$ + _
  1672.          "SECURITY  :" + STR$(ZUserSecSave) + ZCrLf$ + _
  1673.          "PASSWORD  : " + ZPswdSave$ + ZCrLF$ + _
  1674.          "READ MSG. :" + STR$(ZLastMsgRead)
  1675. Call QuickTput1 (WasX$)
  1676. WasX$ =  "TIMES ON  :" + STR$(ZTimesLoggedOn) +ZCrLF$ + _
  1677.          "Last ON   : " + ZLastDateTimeOnSave$ +ZCRLF$ + _
  1678.          "DownLoads :" + STR$(ZDnlds)                            'Pe 07/09/92 
  1679. Call QuickTput1 (WasX$)
  1680. WasX$ =  "Uploads   :" + STR$(ZUplds)+ ZCrLf$ + _                'Pe 06/01/92
  1681.          "Baud Rate : " + ZCBaud$ + " Bps"                       'Pe 06/01/92
  1682. Call QuickTPut1 (WasX$)
  1683. WasX$ = "Dl-Bytes  :" + STR$(ZDLBytes!)+ZCrLF$ + _
  1684.         "Ul-Bytes  :" + STR$(ZULBytes!)                          'Pe 07/09/92
  1685. Call QuickTput1 (WasX$)
  1686. WasX$ = "User mode : " + MID$("NoviceExpert",1 -6 * ZExpertUser,6) +ZCrLf$ +_
  1687.         "Graphics  : " + MID$("None AsciiColor",GR * 5 + 1,5)
  1688. Call QuickTput1 (WasX$)
  1689. WasX$ = "Protocol  : " + ZUserXferDefault$ + ZCrLF$ + _
  1690.         "Upper Case: " + MID$("and lowerONLY", 1 - 9 * ZUpperCase,9)+ZCrLf$ + _
  1691.         "Line Feeds: " + FNOFFON$(ZLineFeeds)+ ZCrLF$ + _                 'Pe 07/11/92
  1692.         "Nulls     : " + FNOFFON$(ZNulls)
  1693. Call QuickTPut1 (WasX$)
  1694.       IF ZRestrictByDate THEN _
  1695.      CALL QuickTPut ("EXPIRATION: " + ZExpirationDate$,1)
  1696.      CALL Toggle (-8)
  1697.      CALL Toggle (-5)
  1698.      CALL Toggle (-10)
  1699.      CALL Toggle (-2)
  1700.      CALL Toggle (-4)
  1701.      CALL Toggle (-1)
  1702. CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue)
  1703. END SUB
  1704. '********************************************************************
  1705. '
  1706. SUB BatchUpload (ZDesc$,ZUCat$,WasFF) STATIC
  1707. On WasFF GOTO 69000, 69500
  1708. 69000    CALL OpenWorkA ("BatchUp" +ZNodeID$ +".LST")
  1709.          Call PrintWorkA (ZFileName$)
  1710.          CALL PrintWorkA (ZFileNameHold$)
  1711.          CALL PrintWorkA (ZDesc$)
  1712.          CALL PrintWorkA (ZUcat$)
  1713.         Close 2
  1714.      CALL OpenWorkA (ZBatchWorkFile$) 
  1715.        CALL PrintWorkA (ZFileName$)
  1716.      Close 2
  1717. IF ZAnsindex = ZLastIndex THEN 
  1718.       ZUpBatchTransfer = ZFalse
  1719.       ZWasBatchTransfer = ZTrue
  1720.   End IF
  1721. Exit Sub
  1722. '
  1723. '
  1724. 69500 CALL KillWork (ZBatchWorkFile$)
  1725.       ZErrCode = 0
  1726.     Temp$ = "BatchUp" + ZNodeid$ + ".LST"
  1727.       CALL OpenWork (8,Temp$)
  1728.          While Not EOF(8)
  1729.        Line Input #8,ZFileName$
  1730.        Line Input #8,ZFileNameHold$
  1731.        Line Input #8,ZDesc$
  1732.        Line Input #8,ZUCat$
  1733.         Call Findit (ZFileName$)
  1734.     IF ZOK THEN _
  1735.       CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(), ZLinesInMsg,2) _
  1736.         Else CALL UpdtCalr (ZFileNameHold$ + " ABORTED during BatchUL",2) 
  1737.           ZWasBatchTransfer = ZFalse                  'Pe 09/12/91
  1738.          ZAlreadyGiven = ZTrue
  1739.        Wend
  1740.      Close 8
  1741. End Sub
  1742.  
  1743. 69600 ' $SUBTITLE: 'BATCHIT - subroutine to list files for batch downloading'
  1744. ' $PAGE
  1745. '
  1746.  SUB BATCHIT STATIC
  1747.       CALL PutCom (CHR$(7))
  1748.       CALL QuickTPUT ("Enter filenames on Separate lines! (EMPTY LINE ENDS )",1)
  1749.        ZWasB=1
  1750.        FOR BatchF = 2 TO 25
  1751.         ZOutTxt$ = "Name of file #" + STR$(Batchf-1)
  1752.         Call TGet
  1753.          IF ZUserIn$ = "" THEN GOTO 70415
  1754.           ZUserIn$(BatchF) = ZUserIn$
  1755.           ZAnsIndex = BatchF+1
  1756.         NEXT BatchF
  1757. 70415 BatchF =  BatchF-1
  1758.       ZLastIndex = BatchF
  1759.         End Sub
  1760. '
  1761. ' $SUBTITLE: 'TStat --- Display Transfer Stats from Xfer-? file'
  1762. ' $PAGE
  1763. '
  1764.       SUB TStats STATIC                                              ' MplXfer
  1765.       CALL OpenWork (2,"XFER-" + ZNodeID$ + ".DEF")                  ' MplXfer
  1766.       IF ZErrCode <> 0 THEN _
  1767.        Exit Sub                                                    'Pe 06/01/92
  1768.       CALL SkipLine (2)                                              ' MplXfer
  1769.       CALL QuickTPut1 (ZFG2$ + " Transfer Stats on this file were as Follows..." + ZCrLF$) ' MplXfer
  1770.       CALL QuickTPut1 (ZFG4$ + " FileName      Bytes  Dtr Rate    CPS      Errors " + ZCrLf$ + _ ' MplXfer
  1771.            ZFG3$ + "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" + ZEmphasizeOff$) ' MplXfer
  1772.       WHILE NOT EOF(2)                                               ' MplXfer
  1773.         LINE INPUT #2,Stat$                                          ' MplXfer
  1774.         WasS = INSTR(Stat$,"rs ")                                    ' MplXfer
  1775.         IF WasS > 0 THEN _                                           ' MplXfer
  1776.            WasX$ = MID$(Stat$, 2, WasS)                              ' MplXfer
  1777.         Match = INSTR(Stat$, ".")                                    ' MplXfer
  1778.         IF Match > 0 THEN _                                          ' MplXfer
  1779.            WasZyX$ = MID$(Stat$, Match - 8, 12)                      ' MplXfer
  1780.         Match = 0                                                    ' MplXfer
  1781.         Start = 1                                                    ' MplXfer
  1782.         DO                                                           ' MplXfer
  1783.           Match = INSTR(Start, WasZyX$, "\")                         ' MplXfer
  1784.           IF Match > 0 THEN _                                        ' MplXfer
  1785.              WasZyX$ = RIGHT$(WasZyX$, LEN(WasZyX$) - Match)         ' MplXfer
  1786.         LOOP WHILE Match                                             ' MplXfer
  1787.         Match = 0                                                    ' MplXfer
  1788.         Start = 1                                                    ' MplXfer
  1789.         DO                                                           ' MplXfer
  1790.           Match = INSTR(Start, WasZyX$, " ")                         ' MplXfer
  1791.           IF Match > 0 THEN _                                        ' MplXfer
  1792.              WasZyX$ = RIGHT$(WasZyX$, LEN(WasZyX$) - Match)         ' MplXfer
  1793.         LOOP WHILE Match                                             ' MplXfer
  1794.         WasXy = LEN(WasZyX$)                                         ' MplXfer
  1795.  
  1796.       IF ZErrCode <> 0 THEN _
  1797.        Exit Sub                                                    'Pe 06/01/92
  1798.  
  1799.      CALL QuickTPut1 (ZFG1$ + WasZyX$ + SPACE$(15-WasXy) + WasX$ + ZEmphasizeOff$) ' MplXfer
  1800.       WEND                                                           ' MplXfer
  1801.       CALL SkipLine (1)                                              ' MplXfer
  1802.       CLOSE 2                                                        ' MplXfer
  1803.       CALL DelayTime (3)                                             ' MplXfer
  1804.       END SUB                                                        ' MplXfer
  1805. '
  1806. ' $SUBTITLE: 'ShowBull --- Intitial Welcom screen displayed'
  1807. ' $PAGE
  1808. '
  1809.  Sub ShowBull (UsrSecLevel$) STATIC   'Pe 07/23/92
  1810. 71525 CALL SkipLine (2)
  1811.      WasX$ = ZFG1$+"Review System Screens Available:" + ZCrLf$ + _
  1812.              ZFG4$+"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  1813. Call QuickTPut (WasX$,2)
  1814.      WasX$ = ZFG2$+"P)relog Screen"+ZCrLf$ + _
  1815.              ZFG3$+"W)elcome Screen" + ZCrLf$ + _
  1816.              ZFG4$+"O)nline News Screens"
  1817. Call QuickTPut (WasX$,1)
  1818.     WasX$ = ZFG1$+"Y)our Access Level" +ZCrLf$ + _
  1819.             ZFG2$+"N)ew User Sign-On" + ZCrLf$ + _
  1820.                   "[Q]uit"+ZEmphasizeOff$
  1821. Call QuickTPut (WasX$,2)
  1822. ZOutTxt$ = "Please make a Selection (P,W,O,Y,N,[Q]) "
  1823.         GOSUB 72999                     'Pe 04/25/92
  1824.         CALL AllCaps (ZUserIn$)
  1825.         WasMplX = INSTR("PWOYNQ",ZUserIn$)
  1826.         IF ZUserIn$ = "" THEN _
  1827.            GOTO 71596
  1828.     ON WasMplX GOTO 71530,71533,71536,71539,71541,71596
  1829. 71530 ZFileName$ = ZPreLog$
  1830.      GOTO 71550
  1831. 71533 ZFileName$ = ZWelcomeFile$
  1832.      GOTO 71550  
  1833. 71536 ZFileName$ = ZNewsFileName$
  1834.      GOTO 71550
  1835. 71539 ZFileName$ = ZWelcomeFileDrvPath$ + _      'Pe 07/19/92
  1836.                  "LG" + _
  1837.                  UsrSecLevel$ + _                'Pe 07/23/92
  1838.                  ".DEF"                          'Pe 06/01/92
  1839.      GOTO 71550
  1840. 71541 ZFileName$ = ZNewUserFile$
  1841. 71550 GOSUB 71790
  1842.      CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue)
  1843.      GOTO 71525
  1844. 71596 ZFileSysParm = 1
  1845.        Exit Sub
  1846. '
  1847. 71790 CALL Graphic (ZFileName$)
  1848.      CALL BufFile (ZFileName$,WasX)
  1849.      CALL Carrier
  1850.      IF ZSubParm = -1 THEN _
  1851.         ZFileSysParm = 7 : _
  1852.         Exit Sub
  1853.      RETURN
  1854.  
  1855. 72995 GOSUB 72997
  1856.       ZSubParm = 1
  1857. 72996 CALL TGet
  1858. 72997 IF ZSubParm < 0 THEN _
  1859.       ZFileSysParm = 7 :_
  1860.          Exit Sub
  1861.       RETURN
  1862. 72998 ZOutTxt$ = ZOutTxt$ + _
  1863.            ZPressEnter$
  1864.       GOTO 72995
  1865. 72999 ZTurboKey = -ZTurboKeyUser
  1866.       GOTO 72995
  1867. End Sub
  1868. '
  1869. ' $SUBTITLE: 'Line108 --- was line 108 in RBBS-PC.BAS'
  1870. ' $PAGE
  1871. '
  1872.  Sub line108 STATIC   'Pe 07/23/92
  1873.  
  1874.  CALL BreakFileName (ZCallersFile$,Drive$,WasX$,ZWasY$,ZTrue)
  1875.     ZCallersFilePrefix$ = WasX$
  1876.     ZNodeWorkDrvPath$ = Drive$
  1877.     ZArcWork$ = ZNodeWorkDrvPath$ + _
  1878.                 "ARCWORK" + _
  1879.                 ZNodeFileID$ + _
  1880.                 ".DEF"
  1881.     IF ZUseBASICWrites THEN _
  1882.        ZLocalBksp$ = ZBackArrow$ _
  1883.     ELSE ZLocalBksp$ = ZBackSpace$
  1884.     ZSysopFullName$ = LEFT$(ZSysopFirstName$ + " " + ZSysopLastName$ + "  ",22)
  1885.     ZFastFileSearch = ZFalse
  1886.     CALL FindIt (ZFastFileList$)
  1887.     IF ZOK THEN _
  1888.        CALL FindIt (ZFastFileLocator$) : _
  1889.        IF ZOK THEN _
  1890.           ZFastFileSearch = ZTrue : _
  1891.           CALL BreakFileName (ZFastFileList$, Drive$,WasX$,ZWasY$,ZTrue) : _
  1892.           ZFileName$ = Drive$ + WasX$ + "T" + ZWasY$ : _
  1893.           CALL FindIt (ZFileName$) : _
  1894.           IF ZOK THEN _
  1895.              CALL OpenRSeq (ZFileName$, WasX, WasY, 72) : _
  1896.              FIELD 2, 72 AS IndexRec$ : _
  1897.              GET 2, 1 : _
  1898.              ZFastTabs$ = IndexRec$ : _
  1899.              CLOSE 2 _
  1900.           ELSE ZFastTabs$ = ""
  1901. '
  1902. ' *****  INITIALIZE NetBIOS INTERFACE   ****
  1903. '
  1904.    IF ZNetworkType = 6 AND NOT ZSubBoard THEN _
  1905.       CALL InitIBM
  1906. '
  1907. ' *****  ESTABLISH NEXT CALLERS FILE RECORD AVAILABLE   ***
  1908. '
  1909.     CALL SetCall
  1910.  IF NOT ZSubBoard THEN _
  1911.        ZLocalUser = ZTrue : _
  1912.        ZOutTxt$ = ZColorReset$ : _
  1913.        ZSubParm = 1 : _
  1914.        CALL TPut : _
  1915.        ZLocalUser = ZFalse
  1916.     ZUpldDriveFile$ = RIGHT$(ZDnldDrives$,1)+":FREESPAC.UPL"
  1917.     ZMinsPerSessionDef = ZMinsPerSession
  1918.     ZMaxPerDayDef = ZMaxPerDay
  1919.     ZMaxBankTimeDef = ZMaxBank
  1920. End Sub
  1921.